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Wstęp 


Książka obejmuje ćwiczenia z programu Borland Turbo Pascał 7.0 i przeznaczo- 
na jest dla Czytelników, którzy dopiero zaczynają zgłębiać tajniki programowania. 

W rozdziale pierwszym są omówione podstawowe zagadnienia obsługi systemu 
DOS 1 Windows — związane z uruchomieniem programu Turbo Pascal. 


Uwaga. W rozdziale pierwszym są omówione podstawowe zagadnienia obsługi 


systemu DOS i Windows — związane z uruchomieniem programu Turbo Pascal. 


W rozdziale drugim jest omówione środowisko programowania. Następny roz- 
dział opisuje podstawowe konstrukcje języka Turbo Pascal. W rozdziale czwartym są 
przedstawione programy na średnim poziomie trudności. Rozdział piąty prezentuje 
pisanie programów bardziej złożonych. W rozdziale ostatnim zamieściłem ćwiczenia 
do samodzielnego wykonania. 


Uwaga. Że względu na systemowe kłopoty z polskimi znakami diakrytycznymi, 


nie są one używane przy pisaniu kodów poszczególnych programów. 


Uwaga. Ćwiczenia z dyskietki należy przegrać do katalogu CNIPABIN. 


Po zakończeniu ćwiczeń przedstawionych w książce, namawiam Czytelników do 
kontynuowania nauki programowania w języku Borland Delphi. Kontynuując tę naukę 
mogą wykorzystać moje książki: Ćwiczenia z... Podstawowych komponentów Delphi, 
Delphi 7, Tworzenie prostych programów użytkowych w Delphi oraz Pisanie pro- 
gramów generujących strony WWW w Delphi, wydane w Wydawnictwie MIKOM. 

Język Delphi umożliwia wizualne projektowanie aplikacji, dzięki czemu jest 
zaliczany do narzędzi typu RAD (Rapid Application Development) — co oznacza 
szybkie tworzenie aplikacji. W języku tym tworzy się bardzo duże aplikacje dla sys- 
temu Windows. Jest on również dostępny dla systemu Linux. 

Wszystkim Czytelnikom życzę owocnej pracy. 


Autor 


1. Uruchomienie programu Turbo 
Pascal 


W rozdziale tym są przedstawione ćwiczenia mające na celu przypomnienie 
sposobów uruchamiania programu Borłand Turbo Pascal. 


Ćwiczenie 1.1. Uruchomienie programu Turbo Pascal z linii poleceń 
Uruchom program Turbo Pascal z linii poleceń. 


Sposób wykonania 


+ W linii poleceń wpisz polecenie CDI (polecenie to umożliwia przejście do kata- 
logu głównego, jeżeli aktualnym katalogiem jest inny katalog, np. CNNCNDOC) 
i naciśnij klawisz ENTER. 
Wpisz polecenie CD TP (przechodzi do katalogu TP) i naciśnij klawisz ENTER. 
+ 


Wpisz polecenie CD BIN (przechodzi do katalogu BIN) i naciśnij klawisz ENTER. 


Wpisz polecenie TURBO.EXE lub TPX.EXE (w zależności, jaki masz plik) 
i naciśnij klawisz ENTER (rys. 1.1.1). 


CczNTP>cd ban 
CZNTPWIK?>turbo.exe_ 


Rysunek 1.1.1. Widok kolejno wpisanych rozkazów 


+ Po wykonaniu podanych czynności zobaczysz zintegrowane środowisko progra- 


mistyczne Borland Turbo Pascal (rys. 1.1.2). 


Uruchomienie programu Turbo Pascal 7 


File Edit Search „um Compile Debug _Tools Options Window Help 
| ZA H A + UJ e A Z LLL LLL 


lelp  davt Open ft Lonp1 l: 


Rysunek 1.1.2. Okno zintegrowanego środowiska Borland Turbo Pascal 


Uwaga. Wszystkie te polecenia można wykonać w systemie Windows, wykorzy- 


stując program Windows Commander. 


Cwiczenie 1.2. Tworzenie skrótu 


Utwórz na Pulpicie skrót do programu Turbo Pascal. 


Sposób wykonania 
+ Kliknij prawym klawiszem myszy na wolnym obszarze pulpitu. 


+ Z menu podręcznego wybierz polecenie Nowy->Skrót (rys. 1.2.1). 


Active Desktop > 
Rozmieść kony > 
| Szeteguj ikony 
/ Odśwież © 
wklejyuó 
CJ Eda 


Właściwości 


U] Folder skompiesoway 
(E) Dokumentlekstowy © 
E) Dokument programu Microsoft Wacd magra 
YEN Śzrzóa ik 


z AA 


Rysunek 1.2.1. Wybieranie m" Nowy->Skrót 


+ Będąc w oknie Tworzenie skrótu, kliknij lewym klawiszem myszy przycisk 
Przeglądaj... (rys. 1.2.2). 
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BEC 4 | A 


u Tworzenie skrótu 


Rysunek 1.2.2. Widok wskazanego przycisku Przeglądaj 


+ Będąc w oknie Przeglądaj, wybierz z listy rozwijanej Szukaj w: dysk twardy C: 
(rys. 1.2.3). 


Mój korgadiet 
SAKE 
[0PZ 


Moe meptca 


Rysunek 1.2.3. Wybór dysku C: z listy rozwijanej Szukaj w: 


+ Będąc w katalogu głównym dysku twardego C:, wybierz katalog TP (rys. 1.2.4). 


Uwaga. Wyboru katalogu dokonuje się przez dwukrotne kliknięcie na nim lewym 


klawiszem myszy. 


Uruchomienie programu Turbo Pascal 


Rysunek 1.2.4. Wybór katalogu TP 


+ Będąc w katalogu TP, wybierz katalog BIN (rys. 1.2.5). 


RE 


e 


Przeglądaj 


Sswajw [STP +] e cFEZ- 


2x 


Rysunek 1.2.5. Wybór katalogu BIN 


+ Będąc w katalogu BIN, wybierz plik TPX.EXE lub TURBO.EXE (rys. 1.2.6). 


Uwaga. Wyboru pliku dokonuje się przez dwukrotne kliknięcie na nim lewym 


klawiszem myszy. 
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0005 ooo PEWNIK EA 


7 
1róse 


[E3BN | „| €OGB- 


Szukaj w. 


biore MECH 


Rysunek 1.2.6. Wybóro pliku TPX.EXE 


+ Po wybraniu pliku, jego nazwa zostanie wprowadzona do pola edycyjnego Wiersz 
poleceń (rys. 1.2.7). 


Tworzenie skrótu - Gi _— ERIE ŁA 


Wpisz lokakzację i nszwę elementu, dla którego chcesz 
pk skrót lub odszukaj ten element, klikając przycisk 


Wiersz poleceń: 


[E UZEDZAZA 


| EM M I A A W W 0 RM W PA M NA R WE W OM 4 


osi | 


Rysunek 1.2.7. Wypełnione pole edycyjne Wiersz poleceń 


+ Następnie kliknij lewym klawiszem myszy przycisk Dalej. 


+ Będąc w oknie Wybieranie tytułu programu, wypełnij pole edycyjne Wybierz 
nazwę dla skrótu wpisując nazwę Turbo Pascal 7.0 (rys. 1.2.8). 


Uruchomienie programu Turbo Pascal 
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Wybieranie tytułu programu 


Wybierz nazwę dla skrótu: Ł0R gy: 


Rysunek 1.2.8. Wypełnione pole edycyjne Wybierz nazwę dla skrótu: 


Kliknij lewym klawiszem myszy przycisk Zakończ, co spowoduje utworzenie 
skrótu do programu Turbo Pascal 7.0 na pulpicie (rys. 1.2.9). 


a = le M 
i (j=l GARZ DĄ 
idore Ia lualekfonów Stosa YDP 
dokumenty cormsrdźt 


„(pov 
CUTE Tuibo Psrral 
miu 


rAc 
"-< 
_AP= 
c | 
BFZTNZES. 
JIECORŁE 


E 


Mser| | HOd2*|| Ó 1657 
Rysunek 1.2.9. Utworzony skrót do programu Turbo Pascal 7.0 


Ćwiczenie 1.3. Uruchomienie programu Turbo Pascal w systemie Windows 
Uruchom program Turbo Pascal w systemie Windows. 
Sposób wykonania 


+ Wskaż kursorem myszy znajdujący się na pulpicie skrót, który reprezentuje 
program Turbo Pascal 7.0 (rys. 1.3.1). 
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J3 M4 
Lnta talstonów SŁowrkNUP 
ajjldożś"| 
Rysunek 1.3.1. Wybór skrótu do programu Turbo Pascal 
+ Kliknij dwukrotnie lewym klawiszem myszy na tym skrócie, co spowoduje 


uruchomienie programu (rys. 1.3.2). 


A UL ca cal xi 0 


LTTE ZŁONED 0. ET ęc= 


Rysunek 1.3.2. Okno uruchomionego programu Turbo Pascal w systemie Windows 


Od tej chwili można pracować w zintegrowanym środowisku programowania Borland 
Turbo Pascal. 


2.  Srodowisko programowania 


W rozdziale tym przedstawiono ćwiczenia mające na celu zapoznanie Czytelnika 
z podstawami obsługi zintegrowanego środowiska programowania Borland Turbo 
Pascal 7.0. 


Cwiczenie 2.1. Utworzenie nowego dokumentu 


Utwórz nowy, pusty dokument. 


Sposób wykonania 


4 Wybierz polecenie File->New (Plik->Nowy) z menu górnego (rys. 2.1.1). 


Save a5S.-- 
Save all 


Change dir..- 


rant 
Printer setup..- 


0$ she 
Exit 


Ańlt+X 
Rysunek 2.1.1. Wybór polecenia New (Nowy) z menu File (Plik) 


+ Po wybraniu tego polecenia zostanie utworzony nowy, pusty dokument (rys. 
2.1.2). 


File Edit Search A 
a|---<-=<—=—=<< HAHŁUD.PAŚS = — 


1jons Window llelp 


clp F2 Save F3 Open | lonpile F3 Make AIt+FIU Loca 


Rysunek 2.1.2. Okno pustego dokumentu 
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Ćwiczenie 2.2. Otwarcie pliku z kodem źródłowym 

Otwórz dowolny plik z kodem źródłowym (np. cw0O1.pas). 

Kod źródłowy to zrozumiały dla programisty tekst programu, napisany w dowolnym 
języku programowania (np. Turbo Pascal, C++, Delphi, Builder itp.). 

Sposób wykonania 

+ 


Naciśnij klawisz funkcyjny F3 lub wybierz polecenie File->Open (Plik->Otwórz) 
z menu górnego (rys. 2.2.1). 


i 3y: 28 „PUSZEB| | 

P ROACH | 
ciL * EE R MIŁY i 

| 


t 


Rysunek 2.2.1. Wybór molecegia (Own (Otwórz) 


+ Będąc w oknie Open afile (Otwórz plik), wybierz katalog TP7-CW (rys. 2.2.2). 


za. a mA m - m mam Ą 
MEZTYC: OWCE IA r | 


Rysunek 2.2.2. Wybór katalogu TP7-CW 


+ Będąc w katalogu TP7-CW, wybierz plik CWO1.PAS (rys. 2.2.3). 


h  ame każ Wz 
Ą | CWDT.PAS 


t11et8 „ 
CW01.P4$ 


Rysunek 2.2.3. Wybór pliku CWO01.PAS 


Środowisko programowania | 15 


+ Naciśnij klawisz ENTER, co spowoduje wczytanie pliku do edytora (rys. 2.2.4). 


© File Edit Search Mun Cospile 


r—_ M , 


" Debug Tools Options Window Help 
- © A SZK 2 | 0 =] 


! 
|= Podstawowy kurs Turbo Pascal”a 7.0 -- 
| Copyright(c)by Jan T. Biernat 


POJNCGE Vyswietlenie napisu na ekranie 
progran Pierwszy; 
uses Crt; 


begin 


ClrScr; 
ĄPOCGUŃ UTT) program”); 


en 


Ćwiczenie 2.3. Zapisanie programu do pliku 
Zapisz program do pliku o nazwie np. MT.PAS. 


Sposób wykonania 


+ _ Naciśnij klawisz funkcyjny F2 lub wybierz polecenie File->Save (Plik->Zapisz) 
z menu górnego (rys. 2.3.1). 


r | 
| 


| AVE AS--- | 
| Save a 
| 
4 


Change dir... 
eli + A | 
Exit "'  AltsX | 


ni m mim Sz | W m wy R 4 


|Priat w ZEBRAŃ 
| Printer setup--.- | 
nos shell , | 


Rysunek 2.3.1. Wybór polecenia Save (Zapisz) 
+ Będąc w oknie Save File As (Zapisz plik jako), wpisz w polu edycyjnym Save 
file as nazwę pliku MT.PAS (rys. 2.3.2). 


+ Następnie naciśnij klawisz ENTER, co spowoduje zapisanie pliku pod wcześniej 
wpisaną nazwą. 
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n— | m6 


ZA a ze 


Rysunek 2.3.2. Pole oiice Save file as EM plik jako) : z wpisaną nazwą pliku 


Ćwiczenie 2.4. Praca z oknami 


Zaprezentuj skróty klawiszowe pomocne przy pracy z oknami w zintegrowanym środo- 
wisku programowania Turbo Pascal. 


Sposób wykonania 


Do pracy z oknami są wykorzystywane następujące skróty klawiszowe: 
« ' ESC — wyjście z dowolnego okna lub aktualnie działającej funkcji/polecenia. 


CTRL+F5 — umożliwia przestawienie okna w tryb przesuwania go po ekranie 
(rys. 2.4.1). 


LN „Search Bua Conpile Debug. _[0015_ Dptions Window Help 
-- —— NUHAMŁÓU PAS 


Rysunek 2.4.1. Widok okna po A go w tryb przesuwania po ekranie 


Po włączeniu trybu przesuwania okien po ekranie, możesz wykorzystać następu- 
jące skróty klawiszowe: 


— Klawisze nawigacyjne, tj. strzałki —<1l-—> — umożliwiają przesuwanie okna 
aktywnego po ekranie, 


— SHIFT+klawisze nawigacyjne — umożliwiają zmianę rozmiarów aktywnego 
okna. 
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«' ALT+CYFRA — umożliwia przełączanie się pomiędzy oknami. 


.' ALT+0 — wywołuje okno Windows list (Lista okien), które również umożliwia 
przełączanie się pomiędzy oknami oraz zamykanie okien. 


« F6— umożliwia przełączanie się pomiędzy oknami w przód. 

.  SHIFT+F6 — umożliwia przełączanie się pomiędzy oknami w tył. 
e FS — umożliwia powiększenie/zmniejszenia okna aktywnego. 

. ' ALT+F3 — umożliwia zamknięcie okna aktywnego. 


Cwiczenie 2.5. Praca z kodem programu 


Zaprezentuj skróty klawiszowe pomocne przy pisaniu programu w zintegrowanym 
środowisku programowania Turbo Pascal. 


Sposób wykonania 

Przy pisaniu programu są pomocne następujące skróty klawiszowe: 

» CTRL+Q i F — wywołuje okno umożliwiające wyszukania fragmentu tekstu, 
e ' CTRL+L — kontynuacja szukanego fragmentu tekstu, 


e ' CTRL+Q i A — wywołuje okno umożliwiające zamianę jednego fragmentu 
tekstu na inny, 


 SHIFT+klawisze nawigacyjne — umożliwiają zaznaczanie fragmentu tekstu, 

e ' CTRL+INS — umożliwia skopiowanie zaznaczonego fragmentu tekstu, 

« ' SHIFT+INS — umożliwia wklejenie wcześniej skopiowanego fragmentu tekstu, 
.' SHIFT+DEL — umożliwia usunięcie zaznaczonego fragmentu tekstu. 


Ćwiczenie 2.6. Szukanie tekstu 
Znajdź w kodzie źródłowym wyraz BEGIN. 


Sposób wykonania 


+ Naciśnij kombinację klawiszy CTRL+Q i F lub wybierz polecenie Search> 
Find... (Szukaj->Znajdź...) (rys. 2.6.1). 


|| Ca ba Jaaa niusakam 


Rysunek 2.6.1. Wybór polecenia Find (Znajdź) 


+ Będąc w oknie Find (Znajdź), wpisz w polu edycyjnym Text to find (Szukany 
tekst) wyraz BEGIN (rys. 2.6.2). 
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Direction 


| [ET Origin 


Rysunek 2.6.2. Pole edycyjne Text to find (Szukany tekst) z wpisanym wyrazem BEGIN 


+ 
+ 


Naciśnij klawisz ENTER. 


Gdy szukany ciąg znaków istnieje w tekście, to po odnalezieniu zostanie zazna- 
czony (rys. 2.6.3). 


"File Edit Search PRun Compile Debug Tools Options Window lelp 
a z a , ( „PA 


C 
| Podstawowy kurs Turbo Pascala 7.0 -- 
| Copyright(c)by Jan T. Biernat 


|) == = = = = m m m m m m. w. w m. a wm w w W A A A A W A A W A W A WA A A A A A WA A A A A 


juses Crt; 


|jprocedure KT_KursorTekst(%X, Y, TS zShortant; txtStr :String); 
|var 
| TT z:Shortant; 
txtSpc :Straing; 
Th 
(T_KursorTekst ) 


TS do 
txtSpcz= txtSpc+CHR(32); 


TextBackOGround(BLACK)3 
GotoXY(K, Y); 
14:36 == 


"Fl Help F2 Save bpen AIt+FVY Lompile FV Make Alt+FIU Local menu 


Rysunek 2.6.3. Zaznaczenie szukanego wyrazu BEGIN 


Uwaga. W przypadku, gdy wyraz nie zostanie odnaleziony, to zostanie wyświe- 


tlony komunikat Search string not found (Szukany ciąg znaków nie został odna- 
leziony) (rys. 2.6.4). 


Search string not found. 


4 
'Ę- o o Rz „ - i 
rę. <ż A i smi J* ię | "6 YA j 


| R bęcp o7 „R > - i 
, 4 r M « .+ j 
Jee j* ć - : j 


m zk A” aAlikp 04. = ze - 


śm To” 10 TZT tooiÓW! 1 date 0 - 


Rysunek 2.6.4. Okno z komunikatem informującym o braku szukanego ciągu znaków 


W celu kontynuacji szukanego wyrazu BEGIN, wystarczy nacisnąć kombinację 
klawiszy CTRL+L. 
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Ćwiczenie 2.7. Zamiana tekstu 
Zamień wyraz BEGIN na wyraz START. 


Sposób wykonania 


+ 


+ 


Naciśnij kombinację klawiszy CTRL+Q i A lub wybierz polecenie Search-> 
Replace... (Szukaj->Zamień...) (rys. 2.7.1). 


Find... 
I zick zę I 


Ca Ja lina nauka” 


Rysunek 2.7.1. Wybór polecenia Replace (Zamień) 


Będąc w oknie Replace (Zamień), w polu edycyjnym Text to find (Szukany 
tekst) wpisz wyraz BEGIN, natomiast w polu edycyjnym New text (Nowy tekst) 
wpisz wyraz START (rys. 2.7.2). 


ext to find MITTOWwwwwwwwwwwwwwwe ojj 
Jes tor. UROSŁA A Jr 


Direction 


Rysunek 2.7.2. Wypełnione pole edycyjne w oknie Replace (Zamień) 
Naciśnij kombinację klawiszy ALT+A. 


Gdy zostanie odnaleziony wyraz BEGIN, to zostanie wyświetlone okno Infor- 
mation (Informacja) z pytaniem Replace this occurrence? (Zamienić znaleziony 
wyraz) (rys. 2.7.3). 


Replace this occurrence? 


i LETZE A AK LE TZBACZIORIKKIA DA! W KORDA 5 JE JET GT A. A 


Rysunek 2.7.3. Okno z pytaniem o potwierdzenie zamiany znalezionego wyrazu 
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Uwaga. Naciśnięcie klawisza Y lub ENTER spowoduje zamianę znalezionego 
wyrazu. Natomiast naciśnięcie klawisza N, spowoduje szukanie następnego wy- 
stąpienia szukanego wyrazu. 


Uwaga. W przypadku, gdy wyraz nie zostanie odnaleziony, to zostanie wyświe- 
tlony komunikat Search string not found (Szukany ciąg znaków nie został odna- 
leziony) (rys. 2.7.4). 


Search string not found. | 
jaaa" | 
Rysunek 2.7.4. Okno z komunikatem informującym o braku szukanego ciągu znaków 


W celu kontynuacji szukanego wyrazu BEGIN, wystarczy nacisnąć kombinację 
klawiszy CTRL+L. 


Ćwiczenie 2.8. Uruchomienie programu 


Uruchom program o nazwie cw36z.pas. 


Kod wynikowy powstaje w wyniku kompilacji (tj. tłumaczenia) kodu źródłowego 
(napisanego w dowolnym języku programowania) na kod maszynowy zrozumiały dla 
procesora. Kompilację kodu źródłowego wykonują programy zwane kompilatorami. 
Proces kompilacji polega na analizie kodu źródłowego i dopiero po bezbłędnej anali- 
zie następuje generowanie kodu maszynowego. W przypadku wykrycia błędu, po po- 
prawienie go kompilacja jest wykonywana od początku. Program otrzymany po kom- 
pilacji może być uruchomiony poza środowiskiem programistycznym, w którym 
został stworzony. Kod wynikowy zależy od rodzaju procesora, tak więc dla każdego 
procesora trzeba wykonać osobną kompilację wykorzystując odpowiedni program 
kompilujący. Typowym przykładem kompilatora jest Turbo Pascal, C++, Delphi, 
Builder. 


Interpreter to program, który zamienia kod źródłowy (napisany w dowolnym języku 
programowania) na kod maszynowy zrozumiały dla procesora. Interpreter analizuje 
kod źródłowy linia po linii wykonując przy każdej linii ttumaczenie na kod maszyno- 
wy. W przypadku napotkania błędu interpreter wstrzymuje tłumaczenie. Po poprawie- 
niu błędu, tłumaczenie rozpoczyna się od linii, w której on wystąpił. Kod wygenero- 
wany przy pomocy interpreterów jest duży i mniej efektywny. Typowym przykładem 
interpretera jest język BASIC. 
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Sposób wykonania 


+ 
+ 


+ 


Wczytaj program — patrz ćwiczenie 2.2. 


Naciśnij kombinację klawiszy CTRL+F9 lub wybierz polecenie Run->Run 
(Uruchom->Uruchom) (rys. 2.8.1). 


: zu over 4 i 


„A -Teana Inóm.  - - 7 |. 


Rysunek 2.8.1. Wybór polecenia Run (Uruchom) 


Widok działającego programu przedstawia rysunek 2.8.2. 


deusz biernat 


RĘRZZRĘ 
HRRRRRA 
+ 
ił 
RRRARKKRA 
a r 
HH 
+b 
+4 RRĘ X: 
FKRERARRKA FRRĘR 
HR RRRAAR 


Łe 
4t tr 
R żt 
3t it 


++ ie 


tt 3 
tr tr tt tr tr tt tt 


= s s 


4t tt st 


tt tt 
$ w % 


++ śr +: gd 1t dt dr dt dt 


+ 
RZ 
$ i 


pzu 
++ 


Twoja odpowiedz:40_ 


Rysunek 2.8.2. Okno programu Tabliczka Mnożenia 


Ćwiczenie 2.9. Korzystanie z pomocy 


Zaprezentuj sposoby korzystania z pomocy. 


Sposób wykonania 


Sposób 1 


+ 


Naciśnij kombinację klawiszy SHIFT+F1 lub wybierz menu Help>lndex 
(Pomoclndeks) (rys. 2.9.1). 
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Contents 


opic Scarc tri+ 
Previous topic Alt+F1 
Using help 

Files... 


Compiler directives 
Reserved words 
Standard units 

Turbo Pascal Language 
Error messages 


Rysunek 2.9.1. Wybór polecenia Help>lIndex (PomoclIndeks) 


+ Będąc w oknie Help (Pomoc), zacznij wpisywać na klawiaturze instrukcje Clr- 
Ser, co spowoduje jej wyszukanie (rys. 2.9.2). 
f= aaa ZĘ | | 0 y 1 =p 
| ElLasWieuer,TlastUrewer Count,lle 
| Close Gount, TRe 
Close,TEdatUindow KUMUCOGA 
| Close, TWindow CORAZA 
close-box CPU86G 
| CloseDotF111 M A'LY/ 
CloseGraph GreateDir 
CirEol GreateFin 
| Clr$cr CreateGra 
| Cndlipe Cteatefep 
| CHeno, IMemo Crt=lonst 
| CMenuView, IMenuBar Crt=Funct 
CMHenulieu, IHenuBox ErteP.roce 
| CHenalieu, IMenol icw Crt>Unit 
| CHonechrone, Program Cnt=Uaria 
| cnx$X2,APP CscrollBay 
Rysunek 2.9.2. Zaznaczanie szukanej instrukcji ClrScr w oknie Help 
+ Po znalezieniu instrukcji, naciśnij klawisz ENTER, co spowoduje wyświetlenie 
informacji na temat instrukcji ClrScr (rys. 2.9.4). 
Sposób 2 
+ 


Będąc w kodzie programu, najedź kursorem tekstowym na instrukcje (na temat 
której chcesz się coś dowiedzieć), np. ClrScr (rys. 2.9.3). 


© File Edit Search Run Compile Debu 
| C fSpc ) 
txtS:="*%5 
for TT:= 0 to numSpc-1 do 
txtSz= txtS+CHR(32); 
fSpcz= txt$; 
lend; 


"Tools Options Window 


var 


numL1iczi, nunL1icz?, numtłynik, TT :Shortint; 
txtLiczba, txtlłynik :Strang; 


TextBackOGround(BLACK)3 


TextColer(LightGRAY); 
CiScr; 


Wrateln( "Tabliczka Mnozenia (cdby Jan-Tadeusz Biernat*); 
repeat 


| 


begin 


Randomize; 
nunLiczi:= 


0; 
nunL1cz1:= Random( 10); 
205:$ == 


Rysunek 2.9.3. Instrukcja ClrScr wskazana kursorem tekstowym 
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+ Naciśnij kombinację klawiszy CTRL+F1l, co spowoduje wyświetlenie informa- 
cji na temat instrukcji ClrScr (rys. 2.9.4). 


He 


p z 
(Urt unit 


Rysunek 2.9.4. Okno z informacją na temat instrukcji CirSer 


3. Podstawy Turbo Pascala 


W rozdziale tym przedstawiono ćwiczenia, mające na celu zapoznanie czytelnika 
z podstawowymi konstrukcjami języka Borland Turbo Pascal 7.0. 


Cwiczenie 3.1. Komentarze 


Zaprezentuj możliwość opisania programu. 


Sposób wykonania 


Komentarze wykorzystywane są do opisania czynności, które wykonywane są przez 
określony fragment kodu lub poszczególne instrukcje. Komentarze mogą być również 
wykorzystywane do opisania zmiennych i stałych. Mają one na celu zwiększyć czytel- 
ność programu, a co za tym idzie ułatwić późniejsze modyfikacje dokonywane przez 
programistę. 


Komentarze mogą być umieszczone pomiędzy następującymi znakami: 
. ( | — nawiasem klamrowym, np. ( to jest komentarz ), . 


e  (**) — pomiędzy tymi znakami, np. (* 7o jest również komentarz *). 


Ćwiczenie 3.2. Typy danych 


Omów rodzaje typów danych. 


Sposób wykonania 

Typ jest zbiorem określającym wartości, jakie może przyjmować zmienna lub stała. 
Rozróżnia się wymienione niżej typy: 

e Typ całkowity 


Nazwa _ | | Zakres ||| | Rozmiar 
-128 ... 127 8-bitów (1 bajt) 
55 
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Typ rzeczywisty 


5.0x107*..1.7x107" 15-16 8 bajtów 
3.4x107*..1.1x10** 19-20 10 bajtów 
Comp -9.2x10"..9.2x10" 19-20 8 bajtów 


Typ logiczny 


Najczęściej używanym typem logicznym jest typ Boolean, który może przy- 
jmować dwa stany. Pierwszy stan to TRUE (Prawda — logiczna 1), natomiast 


drugi stan to FALSE (Fałsz — logiczne O). 
Typ znakowy 


— String, może przechowywać dowolne znaki, a liczba tych znaków musi mie- 


Ścić się w zakresie od 1 do 255, 
— Char, może przechowywać dowolny jeden znak; 
— String[1], może przechowywać dowolny jeden znak. 


Ćwiczenie 3.3. Pierwszy program 
Napisz program, który wyświetli tekst Pierwszy program. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CWO01.PAS. 


program Pierwszy; 

l 

Nagłówek programu składa się z następujących elementów: 

- słowa kluczowego PROGRAM, 

- nazwy (identyfikatora) programu występującego po słowie kluczowym 
PROGRAM, np. Pierwszy. 

) 


uses Crt; 


l 
Po słowie USES następuje deklaracja modułu (lub modułów). którego 


instrukcje są wykorzystywane w aktualnie pisanym programie. 
Moduł CRT jest odpowiedzialny za obsługę ekranu i klawiatury. 


) 


begin 
CIrSecr; ( Czyści zawartość ekranu ) 
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( Wyświetla na ekran tekst znajdujący się pomiędzy apostrofami ) 
Writeln('Pierwszy program'); 
end. 


Naciśnij kombinację klawiszy CTRL+F9, w celu uruchomienia programu. 


Ćwiczenie 3.4. Wizytówka 


Napisz program, który wyświetli informację o autorze programu. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CWO2.PAS. 


uses Crt; 


begin 
CirScr; £ Czyści zawartość ekranu ) 
Writeln; C Przejście do następnego wiersza ) 


( Wyświetla na ekran tekst znajdujący się pomiędzy apostrofem, 
tj. znakiem ') 
Wri te! n ( I kkkkkkkkkkkkkkkkkkkkkkkkkikkkkkkkkkkkkk! ) : 
Writeln(' * Podstawowy kurs *'); 
Writeln(' * Turbo Pascala 7.0 *'); 
Writeln(' * Copyright(c)by Jan-Tadeusz Biernat *'); 
Wri te] n ( I gkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkki ) 
end. 


Naciśnij kombinację klawiszy CTRL+F9, w celu uruchomienia programu. 


Ćwiczenie 3.5. Oczekiwanie na naciśnięcie dowolnego klawisza 


Napisz program, który wymusi na użytkowniku naciśnięcie klawisza po wyświetleniu 
dowolnego tekstu. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CWO2.PAS. 


uses Crt; 


begin 
CirScr; ( Czyści zawartość ekranu ) 
Writeln('== Turbo Pascal 7.0 =='); 
Writeln; ( Przejście do następnego wiersza ) 
Write('Naciśnij dowolny klawisz...'); 
repeat 
unt11 KeyPressed; 
l 
Funkcja KeyPressed służy do sprawdzenia, czy nastąpiło naciśnięcie 
na klawiaturze dowolnego klawisza. Jeżeli klawisz został naciśnięty. 
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to funkcja przyjmuje wartość TRUE. W przeciwnym przypadku wartością 
funkcji jest FALSE. 


Pętla REPEAT..UNTIL będzie wykonywana, dopóki nie zostanie naciśnięty 
dowolny klawisz. Sprawdzenie, czy klawisz na klawiaturze został 
naciśnięty, jest wykonywane na końcu pętli. 

) 


end. 


Naciśnij kombinację klawiszy CTRL+F9, w celu uruchomienia programu. 


Ćwiczenie 3.6. Losowo wybierany kolor 


Napisz program, który wyświetli tekst Turbo Pascal 7.0 i będzie zmieniał kolor tekstu, 
do chwili naciśnięcia przez użytkownika dowolnego klawisza. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CWO2A.PAS. 


uses Crt; 


begin 
CirScr; ( Czyści zawartość ekranu ) 
Writeln; ( Przejście do następnego wiersza ) 


C Wyświetla na ekran tekst znajdujący się pomiędzy apostrofem, tj. znakiem ') 
Writeln('== Napis zmienia kolory =='); 
Writeln; 
repeat 
Randomize; C Zainicjowanie wbudowanego generatora liczb losowych ) 
GotoXY(4, 4): 
l 
GotoXY(X, Y) - umieszcza tekst lub kursor w miejscu o współrzędnych X, Y. 
W tym przykładzie tekst jest umieszczony we współrzędnych 4, 4. 
) 


TextColor(Random(9)); 
( 


Random(LICZBA) - Losuje liczby z zakresu podanego w parametrze 

LICZBA (tj. z zakresu od 0 do 9). 

TextColor(KOLOR) - umożliwia nadanie znakom koloru, który trzeba podać 
w parametrze KOLOR. 

) 


Writeln('Turbo Pascal 7.0'); 
unt1i1 KeyPressed; 
l 
Funkcja KeyPressed i pętla Repeat...Until zostły użyte 
w ćwiczeniu 3.6. 
) 
end. 


Naciśnij kombinację klawiszy CTRL+F9, w celu uruchomienia programu. 
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Ćwiczenie 3.7. Wyświetlanie tekstu litera po literze 
Napisz program, który wyświetli podany tekst litera po literze. 
Sposób wykonania 


Program znajduje się na dyskietce w katalogu TP7-CW w pliku CWO2B.PAS. 
uses Crt; 


const 
( Deklaracja stałej „txtNapis” przechowującej dowolny tekst ) 


txtNapis = 'Wszystko powinno być tak proste, jak to tylko możliwe, ale 
nie prostsze. - Albert Einstein'; 
var 


numRuch :Shortint; ( Deklaracja zmiennej liczbowej całkowitej ) 
begin 

CIrScr; C Wyczyszczenie zawartości ekranu ) 

Writeln; ( Przejście do następnego wiersza ) 


Writeln('== Wyświetlenie tekstu znak po znaku =='); 
Writeln; 


numRuch:= 0; C Wyzerowanie zmiennej ) 
repeat 


numRuch:= numRuch+l; C Zwiększenie zmiennej o wartość 1 ) 
GotoXY(4, 4); 
( 


GotoXY(X, Y) - umieszcza tekst lub kursor w miejscu o współrzędnych X, Y. 


W tym przykładzie tekst umieszczony jest we współrzędnych 4, 4. 
) 


Write(Copy(txtNapis, 1, numRuch)); 
C 


Copy(Ciag_Znakow, Pozycja_Pierwszego_Znaku, Liczba_Znakow) 


Funkcja zwraca fragment ciągu znaków, który przechowywany jest 
w parametrze Ciag_Znakow. Liczba tych znaków zależy od wartości 
przechowywanej w parametrze Liczba_Znakow, liczonych od wartości 
przechowywanej w parametrze Pozycja_Pierwszego_Znaku. 

Uwaga. Znak spacji jest traktowany jako znak. 


Na przykład dla: Copy('To jest tekst', 4, 6) - efektem będzie 
wybranie fragmentu tekstu "jest t". 


Delay(222); ( Zatrzymuje działanie programu na kilka milisekund, 
np. 222 ) 
unt11 KeyPressed or (numRuch >= Length(txtNapis)); 
( 
Pętla REPEAT..UNTIL w tym przykładzie służy do zwiększania wartości 
liczbowej, przechowywanej w zmiennej "numRuch” o wartość 1. Dzięki temuż 
wprowadzony tekst jest wyświetlany litera po literze. Postawione warunki na 
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końcu pętli (tj. "KeyPressed" i "numRuch >= Length(txtNapis)”) powodują, że 
literowanie będzie trwało, aż do wyświetlenia całego tekstu lub do momentu 
naciśnięcia dowolnego klawisza. 


Length(S) - funkcja ta zwraca liczbę znaków, które zawiera łańcuch S. 
) 


end. 


Naciśnij kombinację klawiszy CTRL+F9, w celu uruchomienia programu. 


Ćwiczenie 3.8. Wprowadzanie danych z klawiatury 


Napisz program, który umożliwi wyświetlenie danych wprowadzonych z klawiatury. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CWO03.PAS. 


uses Crt; 
var 

D1, D2 :String; ( Deklaracja zmiennych tekstowych ) 
begin 


CirScr; ( Czyści zawartość ekranu ) 


C Wyświetla na ekran tekst znajdujący się pomiędzy apostrofami ) 
Writeln('Program wyświetla wprowadzone dane przez użytkownika.'); 
Writeln; ( Przejście do następnego wiersza ) 

Write('Podaj swoje imię:'); 


Readln(D1); 


Umożliwia wprowadzenie danych z klawiatury i przypisanie ich 
do zmiennej Dl 
) 


Write('Podaj swoje nazwisko:'); 
Readln(D2); 


Writeln: 
Writeln('Podales nastepujace dane:'): 
Writeln(" Imię: '+CHR(32)+D1); 


C Wyświetlenie tekstu "Imię:” ze spacją oraz zawartością zmiennej "D1". 
Znak spacji jest wyświetlany za pomocą funkcji CHR(32). 
Funkcja CHR(X) zwraca znak. którego kod ASCII określony jest w parametrze 
«X, np. CHR(65) wyświetli znak "A". 
ASCII - jest to tablica kodów, która określa jakie liczby są przypisane 
poszczególnym znakom. ) 


Writeln('Nazwisko:'+CHR(32)+D2); 
end. 


Naciśnij kombinację klawiszy CTRL+F9, w celu uruchomienia programu. 
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Ćwiczenie 3.9. Funkcje 
Przedstaw strukturę funkcji i sposoby jej wywoływania. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CW04.PAS. 


Funkcja składa się z kilku bloków: 
e - Definicja funkcji obejmuje: 


— nagłówek (nazwy) funkcji, który jest umieszczony zaraz po spacji za słowem 
function (np. function Sumuj), 


— parametry, które są umieszczone zaraz za nazwą funkcji, pomiędzy nawia- 
sami (np. function Sumuj(A, B :Integer)), 


— typ wyniku, jaki funkcja ma zwrócić; jest on umieszczony za nawiasem za- 
mykającym, tj. ), który poprzedza znak dwukropka : (np. function Sumuj(A, 
B :Integer): Integer). 


e Część opisową — deklaruje się tam stałe lokalne (po słowie const) lub zmienne 
lokalne (po słowie var), a przed słowem begin. 


e Część operacyjną, w której znajdują się instrukcje wykonujące określoną czyn- 
ność — instrukcje te są umieszczone pomiędzy słowami kluczowymi begin i end 
(z średnikiem na końcu słowa end, np. end:). 


Poniżej przedstawiono przykład kilku definicji funkcji. 


uses Crt; 


function JedenParametr(A :Integer) :Integer; ( Definicja funkcji ) 
begin 
JedenParametr:= A*A; 


( Część operacyjna: Wykonuje mnożenie liczby przechowywanej w zmiennej A) 
end; 


function DwaParametry(A, B :Integer) :Integer:; ( Definicja funkcji J 
begin 
DwaParametry:= A*B; 


( Część operacyjna: Wykonuje mnożenie liczb przechowywanych w zmiennych A i B) 
end; 


function DwaParametryRef(A :Integer; var B :Integer) :Integer; 
C 
Parametr B funkcji DwaParametryRef jest poprzedzony słowem VAR, co 
umożliwia dokonanie podmiany zawartości zmiennej B. Na przykład: A=5. 
B = 10 i po wykonaniu sumowania B = 15. 
) 
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begin 
DwaParametryRef:= A*B; 


B:= A+B; 

( Część operacyjna: Dodawanie dwóch liczb przechowywanych w zmiennych A 
1 B oraz przypisanie zmiennej B wyniku z dodawania ) 

end; 


var 
Licz :Integer; ( Deklaracja zmiennej liczbowej całkowitej ) 
begin 
CirScr; ( Czyści zawartość ekranu ) 
Writeln('Wprowadzono liczbę 4, wynik (*): ', JedenParametr(4)):; 
l 
Wyświetlenie tekstu na ekranie oraz wywołanie funkcji JedenParametr 
z liczbą 4, podaną jako parametr. 
) 


Writeln('Wprowadzono liczby 5 i 4, wynik (*): ', DwaParametry(5, 4)); 
( 

Wyświetlenie tekstu na ekranie oraz wywołanie funkcji DwaParametry 

z liczbami 5 i 4, które są podane jako parametry. 
) 


Licz:= 10; ( Przypisanie zmiennej liczby 10 ) 
Writeln('Wprowadzono liczby 5 i 10, wynik (*): ', DwaParametryRef(5, Licz)); 
[6 
DwaParametryRef(5, Licz) 
Wywołanie funkcji DwaParametryRef z dwoma parametrami. 
Zwróć uwagę na to, że w drugim parametrze nie ma podanej liczby. Jest tak 
dlatego, że przed parametrem B w definicji funkcji DwaParametryRef jest 
wyraz VAR. Mówi on o tym, że przy wywołaniu funkcji w drugim parametrze 
należy umieścić zmienną tego samego typu, co parametr znajdujący się 
w definicji funkcji. Zmienna ta umożliwia wprowadzenie (w tym przykładzie) 
liczby 10, a po wykonaniu działania dodawania, zmienna ta przechowa wynik 
(tj. liczbę 15). 


Writeln('Wprowadzono liczby 5 i 10, wynik (+): ', Licz); 
l 
Wyświetlenie tekstu, wraz z wynikiem, który jest przechowywany 
w zmiennej Licz. 


) 
end. 


Naciśnij kombinację klawiszy CTRL+F9, w celu uruchomienia programu. 
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Ćwiczenie 3.10. Funkcje doczytywane z innego pliku 

Napisz program umożliwiający wykorzystanie funkcji z poprzedniego przykładu. Funk- 
cje są zapisane w oddzielnym pliku. 

Sposób wykonania 


Program znajduje się na dyskietce w katalogu TP7-CW w plikach CW04A.PAS 
i CWO4AA.PAS. 


Plik o nazwie CWO4AA.PAS ma postać: 


function JedenParametr(A :Integer) :Integer; ( Definicja funkcji ) 
begin 


JedenParametr:= A*A; 
end; 


function DwaParametry(A, B :Integer) :Integer; ( Definicja funkcji ) 
begin 


DwaParametry:= A*B; 
end; 


Plik o nazwie CW04A.PAS ma postać: 


uses Crt; 


($I cw04aa.pas) 
(£ Dyrektywa umożliwiająca dołączenie pliku CWO4AA.PAS do pliku CWO4A.PAS) 


begin 
C1rScr; C Czyści zawartość ekranu ) 
Writeln('Wprowadzono liczbę 4, wynik (*): ', JedenParametr(4)); 


Writeln('Wprowadzono liczby 5 i 4. wynik (*): ', DwaParametry(5, 4)); 
end. 


Naciśnij kombinację klawiszy CTRL+F9, w celu uruchomienia programu. 


Ćwiczenie 3.11. Procedury 
Przedstaw strukturę procedury i sposoby jej wywoływania. 


Sposób wykonania 

Program znajduje się na dyskietce w katalogu TP7-CW w pliku CWO5.PAS. 
Procedura składa się z kilku bloków 

e - Definicja procedury obejmuje: 


— nagłówek (nazwy) procedury, który jest umieszczony zaraz po spacji za sło- 
wem procedure (np. procedure Sumuj), 
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— parametry, które są umieszczone zaraz za nazwą procedury, pomiędzy na- 
wiasami (np. procedure Sumuj(A, B :Integer)). 


e Część opisową, w której deklaruje się stałe lokalne (po słowie const) lub zmien- 
ne lokalne (po słowie var), a przed słowem begin. 


« Część operacyjną, w której znajdują się instrukcje wykonujące określoną czyn- 
ność. Instrukcje są umieszczone pomiędzy słowem begin, a słowem end (z Śred- 
nikiem na końcu słowa end, np. end;). 


Poniżej przedstawiono przykład procedur: 


uses Crt; 


procedure JedenParametr(A :Integer); ( Definicja procedury ) 

begin 
Writeln('Wprowadzono liczbę ',„A, ', wynik (%): ', A*A):; 

( Cześć operacyjna: Wyświetla tekst oraz wynik mnożenia dwóch liczb 
przechowywanych w zmiennej liczbowej AJ 

end; 


procedure DwaParametry(A, B :Integer):; ( Definicja procedury ) 
begin 
Writeln('Wprowadzono liczby ',A,' i '.B, ', wynik (*): ', A*B); 
( Cześć operacyjna: Wyświetla tekst oraz wynik mnożenia dwóch liczb 
przechowywanych w zmiennych A i B) 
end; 


procedure DwaParametryRef(A :Integer; var B :Integer); 

l 
Parametr B procedury DwaParametryRef jest poprzedzony słowem VAR, co 
umożliwia dokonanie podmiany zawartości zmiennej B. Na przykład: A=5S, 
B = 10 i po wykonaniu sumowania B = 15. 

) 

begin 
B:= A+B; 

( Dodawanie dwóch liczb przechowywanych w zmiennych A i B oraz przypisanie 
zmiennej B wyniku z dodawania ) 

end; 


var 
Licz :Integer; ( Deklaracja zmiennej liczbowej całkowitej ) 
begin 
C1rSecr; ( Czyści zawartość ekranu ) 
JedenParametr(4); ( Wywołanie procedury z jednym parametrem. tj. liczbą 4 
DwaParametry(5, 4); ( Wywołanie procedury z dwoma parametrami, 
tj. liczbami 5 i 4 J 


Licz:= 10; ( Przypisanie zmiennej liczbowej, liczby 10 ) 
DwaParametryRef(5, Licz); 
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Writeln('Wprowadzono liczby 5 i 10, wynik (+): ', Licz); 
( 

Wyświetlenie tekstu, wraz z wynikiem, który jest przechowywany 
w zmiennej Licz. 


) 
end. 


Naciśnij kombinację klawiszy CTRL+F9, w celu uruchomienia programu. 


Ćwiczenie 3.12. Stałe 


Podaj na przykładach czym są stałe i ich zastosowania. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CW06.PAS. 


Stałe wprowadza się do programu w celu ułatwienia modyfikacji w programie. Dzięki 
temu możemy wykonać to w jednym miejscu. W przeciwnym przypadku należałoby 
wprowadzić zmiany w każdym miejscu, gdzie występuje ta stała. Stałe deklarujemy 
po słowie const (ang. constants — stałe), a przed słowem begin. Rozróżnia się stałe 
globalne (widoczne w całym programie) oraz stałe lokalne (widoczne tylko w obrębie 


danej funkcji lub procedury, w której zostały zadeklarowane). Stała może przechowy- 
wać wartość liczbową, tekst lub wartość logiczną. 


Poniższy program przedstawia przykład zastosowania stałych. 


uses Crt; 


const 
( Deklaracja stałych globalnych ) 


Miesiace = 12; ( Stała liczbowa przechowująca liczbę 12 ) 
Doba = 24; 


C Stała tablicowa, przechowująca dni tygodnia ) 
txtDniTygodnia :array[0..6] of String = ('Poniedziałek', 
'Wtorek', 'Środa', 'Czwartek', 
'Piątek', 'Sobota', 'Niedziela'); 
function Funkcja :String; 
const 
( Deklaracja lokalnej stałej txtTekst, przechowującej tekst ) 
txtTekst = 'Wszystko jest możliwe pod warunkiem, że nie wiesz, o czym 
mówisz.'; 
begin 


Funkcja:= txtTekst; ( Funkcja zwróci zawartość stałej txtTekst]J 
end; 


begin 
C1rScr; ( Czyści zawartość ekranu ) 
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Writeln('== Stałe ='); 
C Wyświetla tekst oraz zawartość stałej tablicowej o numerze 4 ) 
Writeln('Dzień tygodnia: '+txtDniTygodnia[4]); 


( Wyświetla tekst oraz zawartość stałej Doba) 
Writeln('Doba ma ', Doba, ' godziny'): 


Writeln(Funkcja): ( Wywołanie funkcji Funkcja z jednoczesnym 
wyświetleniem tekstu na ekranie ) 
end. 


Naciśnij kombinację klawiszy CTRL+F9, w celu uruchomienia programu. 


Ćwiczenie 3.13. Stałe w programie 


Napisz program, który umożliwi przesunięcie wyświetlanego tekstu o określoną liczbę 
znaków (np. o 7 kolumn w prawo i 7 wierszy w dół), wykorzystując w tym celu stałe. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CWO6A.PAS. 


uses Crt; 


const 
( Deklaracja stałych ) 
numLewo = 7; 
numGora = 7; 
begin 
C1rScr; ( Czyszczenie zawartości ekranu ) 
Writeln; £ Przesunięcie kursora o wiersz w dół ) 
Writeln('== Stała =='); 
Writeln; 
GotoXY(numLewo, numGora); 
l 
GotoXY(X, Y) - umieszcza tekst lub kursor w miejscu o współrzędnych X, Y. 
W tym przykładzie tekst jest umieszczony w współrzędnych numLewo+2 
i numGora. 
) 


( Wyświetlenie tekstu w miejscu o współrzędnych numLewo i numGora) 
Write('Turbo Pascal v7.0'); 
GotoXY(numLewo+2, numGora+2); 
Write('Copyright(c)'): 
GotoXY(numLewo+7, numGora+3); 
Write('by'); 
GotoXY(numLewo+2, numGora+4); 
Write('Borland Team'); 
end. 


Naciśnij kombinację klawiszy CTRL+F9, w celu uruchomienia programu. 
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Ćwiczenie 3.14. Zmienne 


Co to są zmienne. Podaj przykłady ich zastosowania. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CWO07.PAS. 


Zmienna umożliwia przechowywanie wartości liczbowej, tekstu lub wartości logicz- 
nej. Zmienne deklaruje się po słowie var (ang. variables — zmienne), a przed blokiem 
programu identyfikowanym przez begin. Rozróżniamy zmienne globalne (widoczne 


w całym programie) i zmienne lokalne (widoczne w obrębie funkcji lub procedury, 
w której zostały zadeklarowane). 


Poniższy program przedstawia przykład zastosowania zmiennych. 


uses Crt; 


var 
C Deklaracja zmiennych globalnych ) 
Miesiac :Shortint; C Zmienna liczbowa całkowita ) 
txtDniTygodnia :array[0..6] of String; ( Zmienna tablicowa, tekstowa ) 


function Funkcja :String: 
var 


C Deklaracja lokalnej zmiennej tekstowej txtTekst ) 
txtTekst :String; 
begin 


txtTekst:= 'Wszystko jest możliwe pod warunkiem, że nie wiesz, o czym 
mówisz. '; 
( Przypisanie tekstu zmiennej txtTekst J 


Funkcja:= txtTekst; ( Funkcja zwraca zawartość zmiennej txtTekst ) 
end; 


begin 
C1rScr; ( Wyczyszczenie zawartości ekranu ) 


( Wyświetla tekst znajdujący się pomiędzy apostrofami ) 
Writeln('== Stale =='); 


Writeln(Funkcja); C Wywołanie funkcji Funkcja z jednoczesnym 
wyświetleniem tekstu na ekranie ) 


Miesiac:= 9; ( Przypisanie zmiennej liczby 9 ) 


( Wyświetlenie tekstu oraz zawartości zmiennej Miesiąc ) 
Writeln('Numer miesiaca: ', Miesiac); 


txtDniTygodnia[0]:= 'Poniedziałek'; ( Przypisanie elementów do tablicy ) 
txtDniTygodniaLlli]:= 'Wtorek'; 
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txtDniTygodniaC2]:= 'Środa'; 
txtDniTygodnia[3]:= 'Czwartek'; 
txtDniTygodnial4]:= 'Piątek'; 
txtDniTygodnial[5]:= 'Sobota'; 
txtDniTygodnial6]1:= 'Niedziela'; 


( Wyświetlenie tekstu oraz zawartości tablicy o numerze 4 ) 
Writeln('Dzien tygodnia: '+txtDniTygodnia[4]); 
end. 


Naciśnij kombinację klawiszy CTRL+F9, w celu uruchomienia programu. 


Ćwiczenie 3.15. Instrukcja warunkowa IF...THEN 
Napisz program ilustrujący zasadę działania instrukcji warunkowej IF...THEN. 


Sposób wykonania 


Program znajduje się na dyskietce w katalogu TP7-CW w plikach CW08.PAS 
1 CWO8A.PAS. 


Instrukcje warunkowe IF...THEN / IF...THEN...ELSE pozwałają na sterowanie pro- 
gramem, dzięki sprawdzeniu wartości wyrażenia logicznego. Jeżeli wyrażenie jest 
prawdziwe, to następuje wykonanie działań (procedur lub instrukcji) znajdujących się 
po słowie THEN, w przeciwnym przypadku realizowane są działania zapisane po 
ELSE (o ile to słowo kluczowe występuje). 


Uwaga. Jeżeli chce się wywołać większą liczbę funkcji, procedur lub wpisać 
większą liczbę instrukcji, to trzeba umieścić je pomiędzy słowami kluczowymi 
begin i end. W przypadku wywołania jednej funkcji, procedury lub wpisania jed- 
nej instrukcji, słowa begin i end można pominąć. 


Poniższe programy ilustrują zastosowanie instrukcji warunkowych. 
Pierwszy program realizuje uproszczoną wersję instrukcji warunkowej. 
uses Crt; 
var 

txtStr :String; C Deklaracja zmiennej tekstowej txtStr ) 
begin 

CirScr; ( Czyści zawartość ekranu ) 


Write('Wpisz znak "a" lub "b":'+CHR(32)); 


Readln(txtStr); . . 
( Odczytanie danych z klawiatury i przypisanie ich do zmiennej txtStr ) 


1” (txtStr a 'a') then Writeln( 'Wprowadzono znak: ', txtStr); 
l 
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Funkcja warunkowa IF._THEN umożliwia sprawdzenie warunku podanego pomiędzy 
słowem IF, a słowem THEN. Jeżeli warunek jest spełniony, to zostaną 
wykonane instrukcje po słowie THEN. 


W tym przykładzie jest sprawdzany warunek równości litery „a” z zawartością 
zmiennej txtS$tr. Jeżeli warunek będzie spełniony (tj. litera „a” będzie 
równa zawartości zmiennej txtStr), to nastąpi wykonanie instrukcji 
znajdujących się po słowie THEN. 


Po słowie THEN nie ma bloku BEGIN i END, ponieważ jest tu tylko 
jedna instrukcja. W innym przypadku (tj. większej liczby instrukcji) 
należy instrukcje zamknąć w bloku BEGIN i END. 


) 
1" (txtStr = 'b') then 
begin 
Writeln('Wprowadzono znak: ', txtStr); 
Writeln('To jest konstrukcja IF...THEN'); 
end; 


l 

W tym przykładzie jest sprawdzany warunek równości litery „b” 

z zawartością zmiennej txtStr. Jeżeli warunek będzie spełniony 

(tj. litera „b” będzie równa zawartości zmiennej txtStr), to nastąpi 
wykonanie instrukcji znajdującej się po słowie THEN. 


Instrukcje po słowie THEN znajdują się w bloku BEGIN i END, 
ponieważ jest ich więcej niż jedna. 
) 


end. 
Drugi program przedstawia instrukcję warunkową ze słowem kluczowym ELSE. 


uses Crt; 


var 
A, B :Integer; 
begin 
CIrScr; C Wyczyszczenie zawartości ekranu ) 
Writeln; £ Przesunięcie kursora o wiersz w dół ) 
Writeln('Funkcja warunkowa IF..THEN - Dzielenie'); 
Writeln; 
Write('Podaj liczbe 1:'); 
Readln(A); 
Write('Podaj liczbe 2:'); 
Read1n(B); 
1” (B © 0) then 
begin 
Writeln('Podane liczby to '„A, ' i ', B); 
Writeln('Wynik dzielenia = ', A/B:1:2); 
l 
Zapis A/B:1:2 umożliwia sformatowanie liczby do podanej postaci, np. 12.34 
(tj. liczbę z dwoma miejscami po przecinku). Parametry spełniają następujące 
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role: A/B - to wynik z dzielenia dwóch liczb przechowywanych w zmiennych 
A iB; 1 - określa długość wyniku (tj. z ilu cyfr ma składać się wynik, 
łącznie z cyframi po przecinku - dzięki temu wyniki znajdujące się 
w wierszach są zawsze wyrównywane do prawej); 2 - określa liczbę miejsc 
po przecinku. 
) 

end 

else 

Writeln('Dzielenie jest niewykonalne!'); 


if (warunek) then 
begin 
Instrukcja l; 
Instrukcja 2; 
Instrukcja N; 
end 
else 
begin 
Instrukcja l; 
Instrukcja 2; 


. 
.2«.020000000%00 


Instrukcja N:; 
end; 


Złożona instrukcja warunkowa IF..THEN_.ELSE ma dwa bloki instrukcji. 
Jeżeli zostanie spełniony warunek, to nastąpi wykonanie instrukcji 
(znajdujących się w bloku BEGIN i END) po słowie THEN. W przeciwnym 
przypadku nastąpi wykonanie instrukcji po słowie ELSE. 

) 


end. 


Naciśnij kombinację klawiszy CTRL+F9, w celu uruchomienia programu. 


Ćwiczenie 3.16. Wygaszacz ekranu 


Napisz program, który będzie wyświetlał w losowo wybranych punktach ekranu przy- 
gotowany napis. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CWO08B.PAS. 


uses Crt; 


procedure Napis(X, Y, Color :Integer; txtNapis :String); 
(Procedura wyświetla tekst o współrzędnych X, Y i w kolorze podanym 
w parametrze COLOR) 
begin 
C Napis J 
17 (X < 1) then X:5 1; 
l 
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Jeżeli zawartość parametru X jest mniejsza od liczby 1, to przypisz temu 
parametrowi (tj. zmiennej) wartość 1. 
) 


1f (Y < 1) then Y:= l; 

GotoXY(X, Y); (£ Ustawia tekst na pozycji X, Y ) 

TextBackground(BLACK); C Nadaje tłu kolor czarny ) 

TextColor(Color); ( Nadaje tekstowi kolor, który jest podany w parametrze 
COLOR ) 

Writeln(txtNapis); C Wyświetla napis ) 


GotoXY(1, 1); C Ustawia kursor na pozycji 1, 1 - Kursor ) 
TextBackground(BLACK); C Nadaje tłu kolor czarny ) 
TextColor(BLACK); C Nadaje tekstowi kolor czarny ) 


Delay(222); ( Wstrzymuje pracę programu na 222 milisekundy ) 
end; 


const 

txtNapis = 'Turbo Pascal 7.0'; C Deklaracja stałej txtNapis 

przechowującej tekst ) 

var 

numX, numY :Shortint; C Deklaracja zmiennych liczbowych całkowitych ) 
begin 

CirSer; ( Czyści zawartość ekranu ) 

repeat 

Randomize; ( Inicjuje generator liczb losowych ) 


numX:= 0; ( Wyzerowanie zmiennej ) 

numX:= Random(64); ( Losuje liczbę z zakresu od 0 do 64. Uwaga. Ekran 
składa się z 80 kolumn, minus 16 znaków na napis 
przechowywany w zmiennej txtNapis, co daje 
liczbę 64. ) 


numY:= 0; 
numY:= Random(24); 


Napis(numX, numY, WHITE, txtNapis); 
l 
Wywołanie procedury NAPIS, która wyświetla tekst o współrzędnych numX 
i numY, oraz nadaje wyświetlanemu tekstowi kolor biały. 
) 


Napis(numX, numY, LightGray, txtNapis); 
Napis(numX, numY, DarkGray, txtNapis):; 
Napis(numX, numY, BLACK, txtNapis); 
until KeyPressed; 
end. 


Naciśnij kombinację klawiszy CTRL+F9, w celu uruchomienia programu. 
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Ćwiczenie 3.17. Instrukcja wyboru CASE 
Napisz program ilustrujący zasadę działania instrukcji wyboru CASE. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CWOŚC.PAS. 


Instrukcja wyboru CASE, daje możliwość porównania danych lub sprawdzenia róż- 
nych wartości ,,od-do'”. Funkcja ta nadaje się dobrze do sprawdzenia wielu warunków 
nałożonych na wartość liczbową. W zależności od spełnionego określonego warunku, 
nastąpi wyświetlenie ustalonego komunikatu lub wykonanie podanej funkcji (procedu- 
ry lub instrukcji). 


Jeżeli, na przykład, zawartość wyrażenia „numCase” jest równa 4, to zostanie wyświe- 
tlony komunikat „Cyfra: 4”. W momencie wpisania złej liczby, nastąpi wykonanie 
instrukcji wprowadzonej po słowie ELSE (tj. Zła cyfra!). 


uses Crt; 


var 
numCase :Integer; ( Deklaracja zmiennej liczbowej całkowitej ) 
begin 
TextColor(WHITE); C Ustaw litery na kolor biały ) 
CIrScr; £ Czyści zawartość ekranu ) 


Write('Podaj liczbę z zakresu 0..6:'+CHR(32)); ( Wyświetla tekst oraz 
spację. ) 


Readln(numCase); ( Pobiera dane z klawiatury i przypisuje je zmiennej 
liczbowej numCase ) 


case numCase of 
0: Writeln('Cyfra: 0'); 
1: Writeln('Cyfra: 1'); 
2: Writeln('Cyfra: 2'); 
3: Writeln('Cyfra: 3'); 
4: Writeln('Cyfra: 4'): 
5, 6: Writeln('Cyfra: 5 lub 6'); 

else 
Writeln('Zła cyfra!'); 

end; 

end. 


Naciśnij kombinację klawiszy CTRL+FY, w celu uruchomienia programu. 


Ćwiczenie 3.18. Prosty kalkulator 


Napisz prosty kalkulator wykonujący cztery podstawowe działania — przy pisaniu tego 
programu wykorzystaj instrukcję wyboru CASE. 
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'" Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CWO8D.PAS. 


uses Crt; 


function jtbKalkulatorek(numwynik, numNowaLiczba :Real; chFunc :Char) 

:Real; 

( Funkcja wykonuje cztery podstawowe działania matematyczne (tj. dodawanie, 
odejmowanie, mnożenie i dzielenie), a wynik tych działań przypisuje nazwie 
funkcji (tj. jtbKalkulatorek). ) 

begin 

C jtbKalkulatorek ) 
case chFunc of 
'+': jtbKalkulatorek:= numwynik+tnumNowaLiczba; ( Dodawanie ) 
'-'; jtbkKalkulatorek:= numwynik-numNowaLiczba; C Odejmowanie ) 
'*k'. jtbKalkulatorek:= numwynik*numNowaLiczba; ( Mnożenie ) 
'/': jtbkalkulatorek:= numwynik/numNowaLiczba; C Dzielenie ) 
else 
jtbkalkulatorek:= numNowaLiczba; 
end; 
( | 
Instrukcja wyboru CASE, daje możliwość wybierania różnych działań (w tym 
przykładzie działań matematycznych), w zależności od podanego symbolu 
działania matematycznego. 


Działanie funkcji polega na wybraniu odpowiedniej stałej (zakończonej 
znakiem dwukropka :), na podstawie wartości przechowywanej w zmiennej 
chFunc. Jeżeli zawartość zmiennej chFunc jest równa znakowi plus +, to 
zostanie wykonane działanie dodawania dwóch zmiennych, przechowujących 
konkretne liczby. W chwili wpisania złego znaku, nastąpi wykonanie 
instrukcji po słowie ELSE (tj. przypisanie zawartości zmiennej 
numNowaLiczba do nazwy funkcji). ) 


end; 


begin 
CIrScr; ( Wyczyszczenie zawartości ekranu ) 
Writeln; C Przejście o jeden wiersz w dół ) 
Writeln('== Prosty kalkulatorek =='); 
Writeln; 
Writeln; 


( Wyświetlenie komunikatu, z jednoczesnym wywołaniem funkcji 
„jtbKalkulatorek(2, 3, '+')”. Funkcja „jtbkKalkulatorek(2, 3, '+')" 
dodaje dwie liczby (tj. 2, 3). ) 

Writeln('Dodawanie liczb 2+3 : ', jtbKalkulatorek(2, 3, '+'):1:2); 

l 

Zapis jtbKalkulatorek(2, 3, '+'):1:2 umożliwia sformatowanie liczby 

w postaci np. 12.34 (tj. liczbę z dwoma miejscami po przecinku). Parametry 

spełniają następujące funkcje: jtbKalkulatorek(2, 3, '+') - wywołanie 

funkcji i przechowanie wyniku z dodawania dwóch liczb; 1 - określa długość 
wyniku (tj. z ilu cyfr ma składać się wynik, łącznie z cyframi 
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po przecinku; dzięki temu wyniki znajdujące się w wierszach są zawsze 
wyrównywane do prawej); 2 - określa liczbę miejsc po przecinku. 
) 


Writeln; 
Writeln('Odejmowanie liczb 7-4 : ', jtbkKalkulatorek(7, 4, '-'):1:2): 


Writeln; 
Writeln('Mnozenie liczb 5*5 : ', jtbkalkulatorek(5, 5, '*'):1:2); 
Writeln; 


Writeln('Dzielenie liczb 7/2 : "', jtbkalkulatorek(7, 2, '/'):1:2): 
end. 


Naciśnij kombinację klawiszy CTRL+F'9, w celu uruchomienia programu. 


Ćwiczenie 3.19. Pętla FOR...TO...DO / FOR...DOWNTO...DO 
Napisz program, który ilustruje zasadę działania pętlę FOR...TO...DO. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CWO09.PAS. 


Pętla FOR...TO...DO / FOR...DOWNTO...DO umożliwia wykonanie instrukcji 
(lub bloku instrukcji) z góry określoną liczbę razy. 


Do wcześniejszego zatrzymania wykonywanej pętli służy instrukcja BREAK, powo- 
dująca natychmiastowe zakończenie wykonywanej pętli, w której została wywołana. 


Różnica między pętlą FOR...TO...DO, a pętlą FOR...DOWNTO...DO polega na 
tym, że ta pierwsza (tj. FOR...TO...DO) powoduje odliczanie od wartości mniejszej 
do wartości większej (np. for TT:= O to 10 do z dodatnim krokiem). Natomiast druga 
pętla (tj. FOR...DOWNTO...DO) powoduje odliczanie od wartości większej do 
wartości mniejszej (np. for TT:= 10 downto O do z krokiem ujemnym). 


uses Crt; 
var 

TT :Integer; C Deklaracja zmiennej liczbowej całkowitej ) 
begin 


CirScr; ( Wyczyszczenie zawartości ekranu ) 
Writeln; ( Przesunięcie kursora o wiersz w dół ) 
Writeln('Pętla FOR...TO/DOWNTO..DO'); 

Writeln; 


C for...to...do ) 
for TT:= 0 to 9 do 

Write(TT, ' '): C Wyświetlenie liczb od 0 do 9 ) 
Writeln; 


(C for...downto...do )J 
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for TT:= 9 downto O do 


Write(TT, ' '); C Wyświetlanie liczb od 9 do 0 ) 
Writeln; 


end. 


Ćwiczenie 3.20. Tablica ASCII 
Napisz program wyświetlający znaki z tablicy kodów AŚCII. 


Sposób wykonania 


Program znajduje się na dyskietce w katalogu TP7-CW w pliku CWO9A.PAS. 


Tablica kodów ASCII (American Standard Code for Information Interchange) stanowi 
zestaw używany do reprezentacji znaków alfanumerycznych (tj. liter, cyfr, znaków 
specjalnych, np. ©, $, + itp.). Każdy znak w tabeli ma przyporządkowaną wartość 
liczbową od O do 255 (w wersji rozszerzonej), np. litera A ma kod 65. 

Tablica ASCJI składa się 255 znaków, które są podzielone na kilka grup: 

e ' odOdo 31 — znaki sterujące, 


e od32do 126 — znaki podstawowe z amerykańskiej klawiatury, 


od 127 do 255 — znaki dodatkowe (zawierają znaki graficzne, znaki polskie itp.). 


uses Crt; 


var 


TT :Integer; ( Deklaracja zmiennej liczbowej całkowitej ) 
begin 


C1rScr; ( Wyczyszczenie zawartości ekranu ) 
Writeln('== Tablica ASCII =='); 


Writeln; £ Przejście o jeden wiersz w dół ) 
for TT:= 0 to 15 do 


begin 
( Pętla jest wykonywana 16 razy dla kolejnych TT (od wartości 0 do 15) 
Writeln(' ', TT+32, ' ', CHR(TT+32), 
'*, TT+48, ' ', CHR(TT+48), 
|. TT+64, ' ', CHR(TT+64), 
' o". TT+80, ' ', CHR(TT+80), 
' o". TT+96, ' ', CHR(TT+96), 


', TT+112, ' ', CHR(TT+112)); 
( Wyświetlenie kodów z podstawowej tablicy ASCII. 


Funkcja CHR(X) zwraca znak, którego kod ASCII określony jest w parametrze 
„X”, np. CHR(65) wyświetli znak „A”. ) 


end; 
end. 


Naciśnij kombinację klawiszy CTRL+F9, w celu uruchomienia programu. 
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Ćwiczenie 3.21. Dodanie znaków pustych na początku tekstu 


Napisz program umożliwiający dodanie spacji (czyli znak o kodzie 32) na początku 
tekstu. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CWO09B.PAS. 


uses Crt; 


function fSpc(numSpc :Shortint) :String; 
( Funkcja zwraca określoną liczbę spacji. Liczba tych znaków zależy 
od wartości przechowywanej w parametrze numSpc ) 
var 
TT :Shortint; C Deklaracja zmiennej liczbowej całkowitej ) 
txtS :String; ( Deklaracja zmiennej tekstowej ) 


begin 
( fSpc ) 
txtS:= ''; ( Wyczyszczenie zmiennej tekstowej ) 
for TT:= 0 to numSpc-l do 
txtS:= txtS+CHR(32); ( Dodanie do zmiennej tekstowej spacji 


w liczbie określonej przez parametr numSpc. 
CHR(X) - instrukcja umożliwiająca wyświetlenie 
znaku o numerze podanym w parametrze "X". 

W tym przykładzie jest to znak spacji 

(o kodzie 32). ) 


fSpc:= txtS; CC Funkcja zwraca określoną liczbę spacji ) 
end; 


const 
txtTekst = 'Turbo Pascal 7.0'; C Deklaracja stałej tekstowej 
i przypisanie do niej tekstu ) 
begin 
C1rScr; ( Wyczyszczenie ekranu ) 
Writeln('Program przesunie tekst w prawo o zadaną liczbę spacji.'); 


Writeln; C Przejście o jeden wiersz w dół 1 


( Wyświetlenie tekstu oraz zawartości stałej txtTekst J 
Writeln('Tekst źródłowy: '+txtTekst); 


( Wyświetlenie tekstu oraz zawartości stałej txtTekst. z dodanymi 
na początku znakami pustymi. Liczba znaków pustych wynosi 12 ) 
Writeln('Przesunięty tekst o zadaną liczbę spacji: '+fSpc(12)+txtTekst):; 
end. 
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Ćwiczenie 3.22. Pętle WHILE...DO / REPEAT...UNTIL 

Napisz program ilustrujący działanie pętli WHILE...DO ! REPEAT...UNTIL. 
Sposób wykonania 

Program znajduje się na dyskietce w katalogu TP7-CW w pliku CWO9C.PAS. 


Pętla WHILE...DO wykonuje blok instrukcji, dopóki spełniony jest podany waru- 
nek.. Warunek ten jest sprawdzany na początku, pętli przy każdym cyklu wykonania. 


W przypadku nie spełnienia warunku, wykonywanie pętli zostaje zatrzymane. Zdarzyć 
się może, ze pętla nie zostanie wykonana ani razu, ponieważ warunek, który spraw- 
dzany jest na początku przed wykonaniem pętli może mieć wartość FALSE (Fałsz). 


Schemat blokowy dla pętli WHILE...DO: 


Sp rawdzenie w arunku 
nmp.K<10 


TAK 


NIE 


Jeżeli zmienna „K” jest mniejsza od liczby 10, to warunek będzie spełniony i nastąpi 
zwiększenie zmiennej „,K” o wartość 1. Zmienna „K” będzie zwiększana, dopóki bę- 
dzie spełniony warunek „K<10”. W momencie, gdy warunek przyjmie wartość 
FALSE (Fałsz), wykonanie pętli zostanie zatrzymane. 


Natomiast pętla REPEAT...UNTIL wykonuje blok instrukcji do momentu spełnienia 
warunku. Warunek ten jest sprawdzany na końcu każdego cyklu. Sprawdzenie warun- 


ku na końcu cyklu sprawia, że pętla zawsze zostanie przynajmniej jeden raz wyko- 
nana. 
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Schemat blokowy dla pętli REPEAT...UNTIL: 


Wykonanie instrukcji 
np. K:= K+1 


Sprawdzenie warunku NIE 
np. K> 10 


TAK 


Zwiększaj zmienną „K” o wartość 1 do momentu, gdy będzie ona większa od liczby 
10. Gdy warunek zostanie spełniony, przerwij wykonywanie pętli. 


uses Crt; 


var 
TT. K :Integer; ( Deklaracja zmiennych liczbowych catkowitych ) 
begin 
CirScr; 


C WHILE...DO ) 
K:= 0; £ Wyzerowanie zmiennej )J 
while (K < 10) do 
begin 
( Pętla będzie wykonywana, dopóki zmienna K będzie mniejsza od liczby 10 ) 
K:= K+1; C Zwiększenie zmiennej K o wartość 1 ) 
end; 
Writeln('Suma: ', K); 


C REPEAT...UNTIL ) 
K:= 0; 
repeat 
K:a K+1; ( Zwiększenie zmiennej K o wartość 1 ) 
unti1 (K > 10): 
Writeln('Suma: ', K); 
end. 
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Ćwiczenie 3.23. Operatory 


Przedstaw podstawowe operatory i napisz program ilustrujący ich działanie. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CW10.PAS. 


Poniższa tabelka przedstawia wybrane operatory relacji i logiczne: 


opa | mae 
Dos powaga 
[= |powmniewanościawówyw 
[= serwa czy tiezmiemesętaą 
Sprawdza, czy pierwsza wartość jest mniejsza od drugiej wartości 
Sprawdza, czy pierwsza wartość jest większa od drugiej wartości 


Poniższy program ilustruje zasadę działania operatorów w wyrażeniach logicznych. 


uses Crt; 


var 

txtStrl. txtStr2 :String; ( Deklaracja zmiennych tekstowych ) 
begin 

C1rScr; 

Write('Wpisz znak 1 (np. "1" lub "2"):'):; 

Readln(txtStrl); 


Write('Wpisz znak 2 (np. "1" lub "2"):'); 
Readln(txtStr2); 


C Operator: = J 
1” (txtStrl = txtStr2) then 
Writeln('Zawartość zmiennej "txtStrl" jest równa '+ 
"zawartości zmiennej "txtStr2".'); 


( Operator: <> ) 
if (txtStrl <> txtStr2) then 
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Writeln('Zawartość zmiennej "txtStr1l" jest różna od '+ 
'zawartości zmiennej "txtStr2".'); 


( Operator: < ) 
1” (txtS$tr1l < txtStr2) then 
Writeln('Zawartość zmiennej "txtStrl" '+ 
"jest mniejsza od zawartości zmiennej "txtStr2".'); 


C Operator: > ) 
1” (txtStrl > txtStr2) then 
Writeln('Zawartość zmiennej "txtStr1l" jest większa od '+ 
'zawartości zmiennej "txtStr2".'); 


( Operator: >= ) 
1” (txtStrl >= txtStr2) then 
Writeln('Zawartość zmiennej "txtStr1l" jest większa '+ 
'od/lub równa zawartości zmiennej "txtStr2".'); 


( Operator: <= J 
1” (txtStrl <= txtStr2) then 
Writeln('Zawartość zmiennej "txtStr1l" jest mniejsza '+ 
'od/lub równa zawartości zmiennej "txtStr2".'); 


( Operator: AND ) 
1” ((txtStrl = '1') and (txtStr2 = '1')) then 
Writeln('Zawartość zmiennej "txtStrl" jest równa 1 i + 
"zawartość zmiennej "txtStr2" też jest równa 1.'); 


C Operator: OR ) 
1” ((txtStrl = '1') or (txtStr2 = '2')) then 
Writeln('Zawartość "txtStr1l" jest równa 1 lub '+ 
"zawartość zmiennej "txtStr2" jest równa 2.'); 
end. 


Ćwiczenie 3.24. Kod naciśniętego klawisza 
Napisz program umożliwiający wyświetlenie kodu naciśniętego klawisza. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CWI11.PAS. 


uses Crt; 


function PressAnykKey :Char; 
C Funkcja zwraca znak naciśniętego klawisza 
var 
Ch :Char; ( Deklaracja zmiennej znakowej J 
begin 
( KeyBoard J 
repeat until KeyPressed; 
Ch:= ReadkKey; 
1” (Ch = 1/0) then Ch:= ReadkKey; 
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PressAnyKey:= Ch; ( Funkcja zwraca znak naciśniętego klawisza ) 
end; 


( 


Funkcja „KeyPressed” służy do sprawdzenia, czy nastąpiło naciśnięcie 
na klawiaturze dowolnego klawisza. Jeżeli klawisz został naciśnięty, 


to funkcja „KeyPressed” przyjmuje wartość TRUE. W przeciwnym przypadku 
wartością funkcji jest FALSE. 


Jeżeli wartością funkcji „KeyPressed” jest TRUE, to ponowne ustawienie tej 
funkcji na wartość FALSE następuje poprzez użycie funkcji „ReadkKey”. 


ReadKey odczytuje kod znaku naciśniętego klawisza, po czym następuje 
przypisanie tego znaku zmiennej „Ch”. 


Jeżeli wartością funkcji „KeyPressed” była wartość TRUE, to wartością 
funkcji „ReadKey” będzie kod znaku naciśniętego klawisza. 


Konstrukcja „if (Ch = J/0) then Ch:= Readkey” umożliwia ponowne odczytanie 
znaku, w przypadku naciśnięcia klawisza funkcyjnego (tj. klawisze od 
F1.F1l2 lub nawigacyjne, tzw. strzałkowe klawisze itp.), dzięki czemu 


zostaje wyeliminowany błąd w postaci komunikatu o naciśnięciu klawisza 
o kodzie zerowym. 


) 


var 
chChar :Char; C Deklaracja zmiennej znakowej J 
begin 
CIrScr; ( Czyści zawartość ekranu ) 
Writeln; ( Przesuwa kursor do następnego wiersza ) 
Writeln('Wyświet]l kod naciśniętego klawisza'); 


repeat 


chChar:= PressAnykKey; ( Przypisanie zmiennej chChar odczytanego znaku 


naciśniętego klawisza ) 
Writeln; 


C Wyświetlenie tekstu i znaku oraz kodu naciśniętego klawisza z klawiatury ) 


Writeln('Naciśnięty klawisz to "'+chChar+'" o kodzie ', ORD(chChar)): 
C ORD(Znak) - zwraca kod podanego znaku ) 


unti1 (chChar = CHR(27)); 
l 


repeat 
until (chChar = CHR(27)); 


Pętla ta będzie wykonywana, dopóki nie nastąpi naciśnięcie klawisza ESC 


- kod ASCII 27. W innym przypadku, po naciśnięciu klawisza zostanie 
wyświetlony jego kod. 


) 
end. 


Naciśnij kombinację klawiszy CTRL+F9, w celu uruchomienia programu. 
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Ćwiczenie 3.25. Wywołanie programu z parametrem 


Napisz program umożliwiający wyświetlenie nazwiska autora programu, dopiero po 
wywołaniu programu z parametrem. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CW12.PAS. 


Wywołanie programu z parametrem, daje możliwość uruchomienia go z określonymi 
ustawieniami lub umożliwia wczytanie pliku z jednoczesnym uruchomieniem określo- 
nego programu. Parametry należy podawać zaraz po nazwie programu, oddzielając je 
od nazwy programu i innych parametrów znakiem spacji. 

Z, parametrami spotykamy się dość często. Gdy chcemy oglądnąć jakiś plik graficzny, 
to w momencie dwukrotnego kliknięcia na nim, następuje uruchomienie przeglądarki 
graficznej oraz automatyczne wyczytanie pliku, który będzie podany jako jej para- 
metr). Innym przykładem może być plik dokumentu programu MS WORD. 

W momencie dwukrotnego kliknięcia na pliku dokumentu, uruchamia się edytor teks- 
tu WORD z jednoczesnym wczytywaniem pliku. Nazwa pliku jest tu parametrem. 
Dzięki takiemu rozwiązaniu możliwe jest tworzenie powiązań plików o konkretnym 
rozszerzeniu z danym programem, np. pliki o rozszerzeniu PAS są powiązane z pro- 


gramem Borland DELPHI, zaś pliki o rozszerzeniu DOC są powiązane z programem 
MS WORD. 


uses Crt; 


begin 
CirSecr; ( Czyści zawartość ekranu ) 
Writeln('Autorem programu jest'): 


l 
Warunek (ParamStr(1) = '/a') sprawdza, czy przy wywołaniu programu 
zostały podane znaki „/a". 


Jeżeli znaki „/a” były podane w trakcie wywoływania programu, to 
nastąpi wykonanie instrukcji po słowie THEN. W innym przypadku 
instrukcja po słowie THEN nie zostanie wykonana. 


) 
1” (ParamStr(1) 5 '/a') then 
begin 
Writeln('Copyright(c)by Jan T. Biernat'):; 
end; 
end. 


Naciśnij kombinację klawiszy CTRL+F9, w celu uruchomienia programu. 


Po skompilowaniu pliku o nazwie CW12.PAS otrzymujemy plik CW12.EXE. 
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Wykorzystując polecenie menu Tryb MS-DOS, w linii poleceń musisz wpisać nazwę 
programu i znaki „,/a”, w celu wyświetlenia informacji o autorze programu. 


Przykład: CW12.EXE /a (słowo „/a” jest parametrem) i po naciśnięciu klawisza ENTER, 
zostanie wyświetlona informacja o autorze programu. Gdyby parametr nie został poda- 
ny, to na ekranie zostałaby wyświetlony tylko tekst „Autorem programu jest”. 


Ćwiczenie 3.26. Tablice 
Napisz program, który wyświetli liczby wprowadzone wcześniej do tablicy. 
Sposób wykonania 


Program znajduje się na dyskietce w katalogu TP7-CW w pliku CW13.PAS. 


uses Crt; 


var 


Tablica :array[O0..1, 0..1] of Integer; ( Deklaracja tablicy dla liczb 


całkowitych ) 
A, B :Integer; ( Deklaracja zmiennych liczbowych całkowitych ) 
begin 


Tablical0, 0]:= 1; (C Przypisanie do elementu tablicy o o indeksach 0 


(zero) i 0 liczby 1 ) 
TablicaL0, 1]:= 2; 


Tablicall, 0]: 
Tablical1l, ll: 


3 
4: 


CIrScr; ( Wyczyszczenie zawartości ekranu ) 


Writeln; £ Przesunięcie kursora o jeden wiersz w dół ) 
for A:=5 0 to 1 do 


for B:= 0 to 1 do 
Write(TablicaC[A, BJ], ' '); C Wyświetlenie elementu tablicy 


o indeksach znajdujących się 


w zmiennych A i B ) 
end. 


4. Cwiczenia trudniejsze 


W rozdziale tym przedstawiono ćwiczenia o większym stopniu trudności, które, 
mają na celu zapoznanie Czytelników ze sposobami rozwiązywania wybranych pro- 
blemów. 


Ćwiczenie 4.1. Konwersja liczb z postaci numerycznej na tekstową i odwrotnie 
Napisz program umożliwiający konwersję liczby na ciąg cyfr i odwrotnie. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CW14.PAS. 


Poniższe funkcje ilustrują sposoby konwersji liczby na ciąg cyfr (znaków) i odwrotnie. 
Opis konwersji umieszczono wewnątrz funkcji — w komentarzu. 


uses Crt; 


function IntToStr(X :Longint) :String;: 
( Funkcja przekształca liczbę całkowitą na ciąg cyfr ) 
var 

txtText :String; ( Deklaracja zmiennej tekstowej ) 
begin 

C IntToStr ) 

STR(X, txtText); 
l 

STR(X, txtText); 
Procedura przekształca wartość liczbową wyrażenia (parametr X) na 
reprezentację łańcuchową (parametr txtText). 


Zapis X:SZER:DEC umożliwia sformatowanie liczby X do określonej postaci, 
np. na 12.34 (tj. do postaci z dwoma miejscami po przecinku). Parametry 
spełniają następujące funkcje: X - przechowuje wartość numeryczną; 

SZER - określa długość wyniku (tj. z ilu cyfr ma się składać wynik, łącznie 
z cyframi po przecinku - dzięki czemu wyniki znajdujące się w wierszach są 
zawsze wyrównywane do prawej); DEC - określa liczbę miejsc po przecinku. 


IntToStr:= txtText; CC Funkcja zwraca wartość tekstową ) 
end; 
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function StrTolnt(txtStr :String) :Longint; 
( Funkcja przekształca ciąg cyfr na wartość liczbową, typu całkowitego J 
var 
numNumber :Longint; C Deklaracja zmiennej liczbowej całkowitej ) 
numErrCode :Integer; 
begin 
C StrTolnt ) 
VAL(txtStr, numNumber, numErrCode); 
( 
VAL(txtStr, numNumber, numErrCode); 
Procedura dokonuje przekształcenia wartości łańcuchowej (zmienna txtStr) 
na reprezentację numeryczną, zapamiętując wynik pod zmienną numNumber. 


Jeżeli konwersja przebiegła pomyślnie, to zmiennej numErrCode przypisywana 
jest wartość 0. ) 


StrTolnt:= numNumber; C Funkcja zwraca wartość numeryczną typu 
całkowitego ) 
end; 


function StrToReal(txtStr :String) :Real; 
C Funkcja przekształca ciąg cyfr na liczbę rzeczywistą ) 
var 
numNumber :Real; ( Deklaracja zmiennej liczbowej rzeczywistej ) 
numErrCode :Integer; C Deklaracja zmiennej liczbowej całkowitej ) 
begin 
VAL(txtStr, numNumber, numErrCode); 
l 
VAL(txtStr, numNumber, numErrCode); 
Procedura dokonuje przekształcenia wartości łańcuchowej (zmienna txtStr) 
na reprezentację numeryczną, zapamiętując wynik pod zmienną numNumber. 
Jeżeli konwersja przebiegła pomyślnie, to zmiennej numErrCode jest 
przypisywana wartość 0. ) 


StrToRea1:= numNumber; (C Funkcja zwraca liczbę rzeczywistą ) 
end; 


function RealToStr(X :Real) :String: 
C Funkcja przekształca liczbę rzeczywistą na ciąg liczb ) 


var 

txtText :String;: 
begin 

STR(X:1:2, txtText); 
l 


STR(X:1:2, txtText); 
Procedura zamienia wartość liczbową wyrażenia (parametr X) na ciąg znaków 
(parametr txtText). 
) 


RealToStr:= txtText; ( Funkcja zwraca wartość tekstową ) 
end; 
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begin 
CIr$cr; ( Czyszczenie zawartości ekranu ) 
Writeln('Konwersja liczby 123 na tekst: '+lIntToStr(123)); 
Writeln('Konwersja tekstu "123" na liczbę: ', StrTolnt('123')); 
Writeln('Konwersja tekstu "123.23" na liczbę: ', StrToRea1('123.23')); 
Writeln('Konwersja liczby 123.23 na tekst: '+RealToStr(123.23)); 

end. 


Naciśnij kombinację klawiszy CTRL+F9, w celu uruchomienia programu. 


Ćwiczenie 4.2. Obliczanie potęgii pierwiastka 


Napisz program umożliwiający obliczenie potęgi n-tego stopnia i wyciągnięcie pier- 
wiastka n-tego stopnia z podanych liczb. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CW15.PAS. 


uses Crt; 


function PotegaN(X, St :Real) :Real; 
( Funkcja oblicza potęgę n-tego stopnia ) 
begin 
PotegaN:= Exp(St*Ln(X)); (C Funkcja zwraca obliczoną potęgę ) 
l 
Exp(X) - zwraca wartość funkcji e podniesionej do potęgi X. Liczba e jest 
podstawą logarytmu naturalnego i w przybliżeniu wynosi 2.718281. 


Ln(X) - oblicza logarytm naturalny z liczby X, np. Ln(e) = 1, ponieważ 
liczba e = 2.718281. 

) 

end; 


function PierwiastekN(X, St :Real) :Real; 
C Funkcja oblicza pierwiastek n-tego stopnia ) 
begin 
PierwiastekN:= Exp((1/St)*Ln(X)); C Funkcja zwraca obliczony 
pierwiastek J 
end; 


function RealToStr(X :Real) :String: 
( Funkcja przekształca liczbę rzeczywistą na ciąg cyfr ) 
var 

txtText :String; 
begin 

STR(X:1:2, txtText); 

RealToStr:= txtText; ( Funkcja zwraca wartość tekstową ) 
end; 
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begin 
CirScr; 
Writeln('2*3 = '+RealToStr(PotegaN(2, 3))); 
Writeln('Pierwiastek 3-go stopnia z liczby 8 = 
'+RealToStr(PierwiastekN(8, 3))); 
end. 


Naciśnij kombinację klawiszy CTRL+F9, w celu uruchomienia programu. 


Ćwiczenie 4.3. Wskaźnik postępu wykonywanego zadania 


Napisz program, który będzie zwiększał wartość zmiennej o I, aż do osiągnięcia war- 
tości 99999. Zwiększanie tej wartości ma być wyświetlane w procentach jako 
wskaźnik postępu wykonywanego zadania. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CW16.PAS. 


W celu obliczanie postępu w procentach należy wykorzystać wzór P = Kz*100/Xs, 
gdzie: P — obliczony procent, Xz — wartość zmieniająca się, Xs — wartość stała. 
Przykład: Jaki procent stanowi liczba 25 z liczby 250. 

Obliczenie: P = 25*100/250 = 10% 


uses Crt; 


function IntToStr(X :Longint) :String; 
C Funkcja przekształca liczbę całkowitą na ciąg cyfr ) 
var 

txtText :String; ( Deklaracja zmiennej tekstowej ) 
begin 

C IntToStr ) 

STR(X, txtText); 


IntToStr:= txtText; ( Funkcja zwraca wartość tekstową 
end; 


function Progress(Change, NoChange :Longint) :Shortlnt; 
( Funkcja oblicza postęp wykonanego zadania w procentach ) 
begin 
if” (NoChange = 0) then NoChange:= l; 
Progress:= Round(Change * 100 / NoChange); ( Obliczenie w procentach 


wykonanego zadania i przypisanie wyniku do nazwy funkcji ) 
end; 


function ShowProgress(Change, NoChange :Longint) :String; 

C Funkcja przekształca wartość liczbową na ciąg cyfr i wyświetla wynik 
postępu z dodaniem znaku % ) 

begin 
ShowProgress:= IntToStr(Progress(Change, NoChange))+'%'; 

end; 
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const 
numMax = 99999; ( Deklaracja stałej liczbowej ) 
var 
TT :Longint; C Deklaracja zmiennej liczbowej całkowitej ) 
Begin 
Cir$cr; ( Wyczyszczenie zawartości ekranu ) 
for TT:=5 0 to numMax do 
begin 
GotoXY(7, 2); ( Określenie współrzędnych wyświetlanego komunikatu ) 


( Wyświetlenie informacji o procentowym postępie wykonywanego zadania ) 
Writeln('Zzadanie wykonane w '+ShowProgress(TT, numMax)); 
end; 
end. 


Naciśnij kombinację klawiszy CTRL+F9, w celu uruchomienia programu. 


Cwiczenie 4.4. Pliki — wykrywanie, usuwanie, zmiana nazwy 


Napisz program umożliwiający znalezienie pliku na dysku oraz usunięcie i zmianę jego 
nazwy. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CWI17.PAS. 


uses Crt, Dos; 


function FileExists(txtFileName :String) :Boolean; 

( Funkcja sprawdza, czy plik o podanej nazwie w parametrze txtFileName 
istnieje fizycznie na dysku ) 

var 
Info :SearchRec; ( Deklaracja zmiennej Info typu SearchRec ) 

( 

Typ SearchRec jest rekordem posiadającym m.in. pole „Name”. Typ SearchRec 

jest stosowany w procedurach „FindFirst” i „FindNext”. 


Rekord jest to zestaw informacji dotyczących jednego tematu. Rekord składa 
się z pól informacyjnych różnego typu. 

Poniższa tabela przedstawia dwa przykładowe rekordy o polach liczbowym 
(LP), tekstowym (Nazwa pliku), liczbowym (Rozmiar) i daty (Czas utworzenia) 


Nazwa pliku Czas utworzenia 
czytaj.txt 12 456 2004-04-08 12:45 
[2  [Ne.com _ _—_—_ _|2 311 1989-01-23 10:00 


) 


begin 
( FileExists J) 
FindFirst(txtFileName, Directory, Info): 

( Procedura FindFirst przeszukuje informacje zawarte w podanym katalogu. 
Nazwa katalogu i pliku są podane w parametrze txtFileName. 
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Po odnalezieniu szukanego pliku, informacja o tym jest przekazana 

do zmiennej typu SearchRec. Wynik szukania pliku jest przekazywany 

do zmiennej DosError. Jeżeli wyszukanie pliku zakończyło się powodzeniem, 
to zmiennej DosError zostaje przypisana wartość 0. DosError jest zmienną, 
służącą do przechowywania kodu błędu. Wartość 0 oznacza brak błędu. ) 


FileExists:= FALSE; C Funkcja zwraca wartość FALSE ) 
1” (DosError = 0) then FileExists:= TRUE; ( Jeżeli plik o podanej nazwie 
istnieje fizycznie na dysku, to funkcja zwróci wartość TRUE ) 
end; 


function DeleteFile(txtFileName :String) :Boolean; 
( Funkcja usuwa plik o podanej nazwie ) 
var 
TF :Text; C Deklaracja zmiennej TF, określającej plik tekstowy J 
begin 
C DeleteFile ) 
DeleteFile:= FALSE; ( Funkcja zwraca wartość FALSE ) 


if” (FileExists(txtFileName) = TRUE) then 
begin 
( Jeżeli plik istnieje fizycznie na dysku, to wykonaj poniższe instrukcje ) 


Assign(TF, txtFileName); ( Skojarzenie pliku o nazwie podanej 
w parametrze txtFileName ze zmienną plikową TF J 


SetFAttr(TF, Archive); C Nadanie plikowi skojarzonemu ze zmienną 
plikową TF atrybutu Archive (archiwalnego) ) 


Erase(TF); ( Usunięcie pliku skojarzonego ze zmienną plikową TF ) 
DeleteFile:= TRUE; C Funkcja zwróci wartość TRUE 
end; 
end; 


function RenameFile(txtFileName0LD, txtFileNameNEW :String) :Boolean; 
C Funkcja zamienia starą nazwę pliku, na nową nazwę ) 
var 
TF :Text; C Deklaracja zmiennej TF, określającej plik tekstowy ) 
begin 
C RenameFile ) 
RenameFile:= FALSE; C Funkcja zwraca wartość FALSE J 
1” (FileExists(txtFileNameNEW) = FALSE) then 
begin 
( Jeżeli na dysku nie ma pliku o nazwie podanej w parametrze 
txtFileNameNEW, to wykonaj poniższe instrukcje ) 
1” (FileExists(txtFileName0LD) =TRUE) then 
begin 
( Jeżeli plik o nazwie podanej w parametrze txtFileNameOLD znajduje się 
na dysku, to wykonaj poniższe instrukcje ) 


Assign(TF, txtFileName0LD); ( Skojarzenie pliku o nazwie podanej 
w parametrze txtFileNameO0LD ze zmienną plikową TF J 
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Rename(TF, txtFileNameNEW); C Nadanie plikowi skojarzonemu ze zmienną 
plikową TF nowej nazwy, podanej 
w parametrze txtFileNameNEW ) 


SetFAttr(TF, Archive+ReadOnly); C Nadanie plikowi skojarzonemu ze 
zmienną plikową TF atrybutu Archive 
(archiwalnego) i atrybutu ReadOnly 
(tylko do odczytu) ) 


RenameFile:= TRUE; C Funkcja zwróci wartość TRUE ) 
end; 
end; 
end; 


var 
okPlik :Boolean; ( Deklaracja zmiennej logicznej ) 
begin 
CirScr; C Wyczyszczenie zawartości ekranu ) 
Writeln; C Przejście o jeden wiersz w dół ) 


Writeln('= Pliki - Wykrywanie, Usuwanie, Zmiana nazwy =='); 
Writeln; 


Write('Zmiana nazwy pliku: '); 
okPlik:= RenameFile('plik.txt', 'pas.txt'): ( Zamiana nazwy pliku z nazwy 
PLIK.TXT na nazwę PAS.TXT ) 

17” (okPlik = TRUE) then 

Write('Nazwa pliku została zmieniona.') C Wyświetla informację 

o dokonanej zamianie ) 

else 

Write('Brak pliku o podanej nazwie!'); 


Writeln; 
Write('Usuwanie pliku: '); 
okPlik:= DeleteFile('pas.txt'); C Usunięcie pliku o nazwie PAS.TXT ) 
1” (okPlik = TRUE) then 
Write('Plik został usunięty.') 
else 
Write('Brak pliku o podanej nazwie!'); 
end. 


Naciśnij kombinację klawiszy CTRL+F9, w celu uruchomienia programu. 


Ćwiczenie 4.5. Zapisanie danych do pliku tekstowego 
Napisz program umożliwiający zapisanie do pliku tekstowego wprowadzonych w pro- 
gramie danych. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CWI18.PAS. 
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uses Crt, Dos; 


function FileExists(txtFileName :String) :Boolean; 
( Funkcja sprawdza, czy plik o podanej nazwie w parametrze txtFileName 
znajduje się na dysku ) 
var 
Info :SearchRec; ( Deklaracja zmiennej Info typu SearchRec ) 
begin 
( FileExists ) 
FindFirst(txtFileName, Directory, Info); 
FileExists:= FALSE; C Funkcja zwraca wartość FALSE J 
1f (DosError = 0) then FileExists:= TRUE; ( Jeżeli plik o podanej nazwie 
znajduje się na dysku, to 


funkcja zwróci wartość TRUE J 
end; 


function FILE_jbTextSaveToFile(txtFileName, txtText: String): Boolean; 
( Funkcja zapisuje dane do pliku tekstowego ) 
var 
TF :Text; C Deklaracja zmiennej TF, określającej plik tekstowy ) 
begin 
( TextSaveToFile ) 
1f (FileExists(txtFileName) = TRUE) then 
begin 
(C Jeżeli plik o podanej nazwie istnieje, to dopisz do niego nowy wiersz 
z danymi ) 


Assign(TF, txtFileName); ( Skojarzenie pliku o nazwie podanej 
w parametrze txtFileName ze zmienną 
plikową TF ) 


Append(TF); ( Otwiera plik skojarzony ze zmienną TF i umożliwia dodanie 
do niego nowego wiersza. Procedury APPEND można używać 
tylko dla plików tekstowych ) 


Writeln(TF, txtText); C Zapisanie nowej linii do pliku skojarzonego 
ze zmienną TF ) 


Close(TF); C Zamknięcie pliku skojarzonego ze zmienną TF ) 
end 


else 
begin 


(C Jeżeli plik o podanej nazwie nie istnieje, to wykonaj poniższe instrukcje 
) 


Assign(TF, txtFileName); 
Rewrite(TF); (C Tworzy nowy plik o nazwie skojarzonej ze zmienną 
plikową TF J 
Writeln(TF, txtText); ( Zapisanie nowego wiersza z danymi do pliku 
skojarzonego ze zmienną TF ) 
Close(TF); 
end; 


FILE_jbTextSaveToFile:= TRUE; ( Funkcja zwraca wartość TRUE ) 
end; 
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const 
txtNazwaPliku = 'dane.txt'; ( Deklaracja stałej tekstowej txtNazwaPliku 
przechowującej nazwę pliku ) 
begin 
CirScr; C Wyczyszczenie ekranu ) 
Writeln:; C Przejście do nowego wiersza )J 


Writeln('=> Zapisywanie danych do pliku tekstowego =='); 
Writeln; 
FILE_jbTextSaveToFile(txtNazwaPliku, 'Podstawowy kurs'); C Zapisanie 


danych do pliku tekstowego ) 


FILE_jbTextSaveToFile(txtNazwaPliku, 'Turbo Pascal'a 7.0'); 

FILE_jbTextSaveToFile(txtNazwaPiiku, 'Copyright(c)'); 

FILE_jbTextSaveToFile(txtNazwaPliku, 'by'); 

FILE_jbTextSaveToFfile(txtNazwaPliku, 'Jan-Tadeusz Biernat'); 
end. 


Naciśnij kombinację klawiszy CTRL+F9, w celu uruchomienia programu. 


Ćwiczenie 4.6. Odczytanie danych z pliku tekstowego 


Napisz program umożliwiający odczytanie danych z pliku tekstowego. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CW18A.PAS. 


uses Crt, Dos; 


function FileExists(txtFileName :String) :Boolean; 

( Funkcja sprawdza, czy plik o podanej nazwie w parametrze txtFileName 
znajduje się na dysku ) 

var 
Info :SearchRec; ( Deklaracja zmiennej Info typu SearchRec ) 

begin 

( FileExists ) 

FindFirst(txtFileName, Directory, Info): 

FileExists:= FALSE; (C Funkcja zwraca wartość FALSE ) 

17” (DosError = 0) then FileExists:= TRUE; C Jeżeli plik o podanej nazwie 
znajduje się na dysku, to 
funkcja zwróci wartość TRUE ) 

end; 


procedure OdczytajDane; 
( Procedura umożliwia odczytanie zawartości pliku tekstowego 

oraz wyświetlenie odczytanych danych na ekranie ) 
const 

txtNazwaPliku 5 'dane.txt'; (C Deklaracja stałej txtNazwaPliku 

przechowującej nazwę pliku ) 

var 

txtCzytaj :String; ( Deklaracja zmiennej tekstowej ) 

FT :Text; C Deklaracja zmiennej TF, określającej plik tekstowy ) 

begin 
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Assign(FT, txtNazwaPliku); C Skojarzenie pliku o nazwie podanej 
w parametrze txtFileName ze zmienną plikową TF ) 


Reset(FT); ( Otwarcie pliku tekstowego skojarzonego ze zmienną plikową TF J 
while not EOF(FT) do 
begin 
C Pętla wykonywana jest do chwili osiągnięcia końca pliku. 
0 tym, że plik osiągnął swój koniec informuje funkcja EOF, 
która jest skojarzona ze zmienną plikową TF. ) 


txtCzytaj:=5 ''; C Wyzerowanie zmiennej ) 
Readln(FT, txtCzytaj); ( Odczytanie kolejnego wiersza z pliku, 
skojarzonego ze zmienną plikową TF ) 
Writeln(txtCzytaj); ( Wyświetlenie na ekranie odczytanej 
z pliku informacji ) 
end; 
Close(FT); ( Zamknięcie pliku skojarzonego ze zmienną plikową TF ) 
end; 


begin 
CIrScr; 
Writeln; 
Writeln('== Odczytanie danych z pliku tekstowego =="); 


Writeln; 
OdczytajDane; ( Wywołanie procedury odczytującej dane z pliku tekstowego ) 


end. 


Zobaczymy na ekranie zawartość czytanego pliku. 


Ćwiczenie 4.7. Rysowanie trójkąta 
Napisz program, który narysuje trójkąt wykreślony znakami *. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CW19.PAS. 


uses Crt; 


function fAscii(numSpc :Shortint; chChar :Char) :String: 
( Funkcja zwraca ciąg znaków złożony z powtórzeniem znaku podanego 
w parametrze chChar. 
W tym przykładzie jest to znak gwiazdki * ) 
var 
TT :Shortint; ( Deklaracja zmiennej liczbowej całkowitej ) 
txtS :String; ( Deklaracja zmiennej tekstowej ) 
begin 
txtS:= ''; C Wyczyszczenie zmiennej tekstowej ) 


for TT:= O to numSpc-1 do 
txtS:s txtS+chChar; C Dodanie do zmiennej txtS znaku tekstowego 
podanego w parametrze chChar. Liczba dodanych 
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znaków zależy od wartości przechowywanej 
w parametrze numSpc ) 


fAscii:= txtS$; ( Przypisanie nazwie funkcji określonej liczby znaków. ) 
end; 


var 

TT :Shortint; ( Deklaracja zmiennej liczbowej całkowitej ) 
begin 

CirScr; C Wyczyszczenie ekranu ) 

Writeln('Program rysuje trójkąt.'); 


Writeln; £ Przejście o wiersz w dół ) 


( Wyświetlenie trójkąta na ekranie ) 
for TT:= 0 to 9 do 
begin 
Write(fAscii(9-TT, CHR(32))+fAscii(TT+1, '*')+fAscii(TT, '*')); 
Writeln; 
end; 


Writeln; 


C Wyświetlenie trójkąta na ekranie. 
Funkcja FASCII(ITlosc_Znakow, Jaki_Znak) - umożliwia narysowanie linii 
wypełnionej znakiem *. Ilość tych znaków zależy od liczby przechowywanej 
w parametrze Ilosc_Znakow, natomiast znak jest przechowywany w parametrze 
Jaki_Znak. Wysokość i ramiona trójkąta określa zmienna TT. 


for TT:= 9 downto 0 do 
begin 
Write(fAscii(9-TT, CHR(32))+fAscii(TT+1, '*')+fAscii(TT, '*')): 
Writeln; 
end; 
end. 


Ćwiczenie 4.8. Inicjały 
Napisz program, który wybierze z podanych wyrazów inicjały (pierwsze litery). 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CW20.PAS. 


uses Crt; 


function Inicjaly(txtStr :String) :String: 
( Funkcja zwraca inicjały pobrane z tekstu podanego w parametrze txtStr ) 
var 
TT :Integer; C Deklaracja zmiennej liczbowej całkowitej ) 
txtTemp :String; C Deklaracja zmiennej tekstowej ) 
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begin 
Inicjaly:= ''; ( Funkcja zwraca ciąg pusty )J 
1” (txtStrO'') then 
begin 


( Jeżeli zmienna "txtStr" zawiera przynajmniej jeden znak, to wykonaj 
poniższe instrukcje ) 


txtTemp:= ''; ( Czyści zmienną tekstową ) 
for TT: 1 to Length(txtStr) do 
1f (txtStrL[TT-1] = CHR(32)) then txtTemp:= txtTemp+txtStrCLTT]; 


l 
FOR TT:=5 1 TO Length(txtStr) DO - pętla ta wykonywana jest tyle razy, ile 


znaków znajduje się w parametrze txtStr. 


Jeżeli będzie spełniony warunek txtStrLTT-1] = CHR(32), tj. znak 
na pozycji TT-1 będzie znakiem spacji (tj. znakiem pustym), pobieramy 
następną literę (tj. literę znajdującą się na pozycji TT). 


Length(T) - określa z ilu znaków składa się wprowadzony tekst 
przechowywany w parametrze T ) 


Inicjaly:= txtStr[1J+txtTemp; 
( Pobiera pierwszy znak z ciągu znaków txtStrL1], dodając do niego 
wcześniej pobrane znaki znajdujące się w zmiennej txtTemp 
oraz przypisuje pobrane znaki nazwie funkcji. ) 
end; 
end; 


const 
txtTekst = 'Borland Turbo Pascal'; C Deklaracja stałej tekstowej, 
przechowującej jakiś tekst ) 


begin 
CirScr; ( Czyści zawartość ekranu ) 
Writeln('== Inicjaly =='); 


Writeln('Podany tekst: '+txtTekst); C Wyświetlenie oryginalnego tekstu ) 


Writeln('Inicjaly: '+lInicjaly(txtTekst)); C Wyświetlenie na ekranie 
pobranych inicjałów ) 


end. 


Naciśnij kombinację klawiszy CTRL+F9, w celu uruchomienia programu. 


Ćwiczenie 4.9. Wybranie liczb z tekstu 
Napisz program, który wybierze z podanego tekstu tylko cyfry i znak minus. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CW2l.PAS. 
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uses Crt; 


function SameCyfry(txtStr :String) :String: 
( Funkcja wybiera z wprowadzonego tekstu tylko liczby i znak minus. 


Przykład: 
1) Wprowadzony tekst: -Przyl23kła-d4owy te5k6 
2) Wyselekcjonowany tekst: -123456 
) 
var 
TT :Shortint; ( Deklaracja zmiennej liczbowej, typu całkowitego ) 
txt$ :String; ( Deklaracja zmiennej tekstowej ) 
begin 
( SameCyfry ) 
txtS:5 ''; ( Wyczyszczenie zmiennej tekstowej ) 


for TT:= 1 to Length(txtStr) do 
1” (txtStr[TT] in C'0'..'9', '-']) then txtS:= txtS+txtStrL[TTJ; 
l 
Pętla FOR TT:= 1 TO Length(txtStr) DO - jest wykonywana tyle razy, 
ile znaków znajduje się w parametrze txtStr. 


Length(X) - określa z ilu znaków składa się tekst przechowywany 
w parametrze X 


IF (txtStrLAAJ] in C'0'..'9', '-']) THEN - sprawdza czy znak jest 
jednym ze znaków od 0 do 9 lub znakiem minus. 

Konstrukcja ta zwalnia programistę ze żmudnego wpisywania warunku dla 
każdej cyfry (w postaci: IF (txtStrlAA] = '0') THEN, IF (txtStr[AA] = 
'1') THEN,.., IF (txtStr[AA] = '9') THEN). 


txtS:> txtS+txtStrCTT]; 

Dodanie do zmiennej txtS znaku pobranego z ciągu znaków 
przechowywanych w zmiennej txtStr (z pozycji o numerze przechowywanym 
w zmiennej TT), w przypadku spełnienia warunku. 


) 
SameCyfry:= txtS; ( Funkcja zwraca tylko liczby i znak minus ) 
end; 
const 
txtTekst = 'labc 2de 3fghijklm5n,-6'; ( Deklaracja stałej tekstowej 
przechowującej tekst ) 
begin 


C1rScr; ( Czyści zawartość ekranu ) 

Writeln('Program wyciąga z tekstu tylko cyfry.'); 

Writeln; 

Writeln('Tekst źródłowy: '+txtTekst): 

Writeln('Wyciągnięte liczby: '+SameCyfry(txtTekst)); 
end. 


Naciśnij kombinację klawiszy CTRL+F9, w celu uruchomienia programu. 
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Ćwiczenie 4.10. Zmiana liter na małe 


Napisz program, który zamieni wszystkie litery na mate. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CW22.PAS. 


uses (rt; 
function LITERY_Male(txtStr :String) :String; 


function MalyZnak(chZznak :Char) :Char; 
C Funkcja zamienia wielką literę na małą ) 
var 
TT :Byte; ( Deklaracja zmiennej liczbowej całkowitej ) 
begin 
for TT:5 65 to 90 do 
1f (Chr(TT) = chznak) then chZnak:= Chr(TT+32); 
l 
Jeżeli będzie spełniony warunek Chr(TT) = chZnak, tj. podana wielka litera 
przechowywana w parametrze chZnak będzie równa literze zwróconej przez 
funkcję Chr, to przypisz zmiennej chZnak kod małej litery. Jeśli przykłado- 
wo wprowadzono wielką literę A, a funkcja zamieni ją na małą literę a. 
) 
MalyZnak:= chZnak; C Funkcja zwraca kod małej litery ) 
end; 


var 

I :Byte; ( Deklaracja zmiennej liczbowej całkowitej ) 
begin 

for I:5 1 to Length(txtStr) do 

txtStrC[I]:5 MalyZnak(txtStrLI]); 
l 
Pętla for I:= 1 to Length(txtStr) do - będzie wykonywana tyle razy, ile 

znaków znajduje się w ciągu txtStr. 


Zapis txtStr[I] umożliwia pobranie znaku z ciągu znaków i po dokonanej 
zamianie umieszczenie go w tym samym miejscu. Zmienna I określa pozycję 
znaku w tekście. 

) 


LITERY_Male:= txtStr; ( Funkcja zwróci tekst pisany małymi literami ) 
end; 


const 
txtTekst = 'Nie Ma Rzeczy Niemożliwych Dla Kogoś, Kto Nie Musi Ich Sam 
Robić.'; 
begin 
C1rScr; 
Writeln('Tekst w normalnej postaci: '+txtTekst); 
Writeln('Tekst pisany małymi literami: '+LITERY_Male(txtTekst)); 
end. 


Naciśnij kombinację klawiszy CTRL+F9, w celu uruchomienia programu. 


Ćwiczenia trudniejsze 67 


Ćwiczenie 4.11. Wyrazy pisane z wielkiej litery 


Napisz program, który umożliwi zamianę pierwszej litery każdego wyrazu na wielką 
literę. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CW23.PAS. 


uses Crt; 


function DuzyZnak(chznak :Char) :Char; 
( Funkcja zamienia małą literę na wielką ) 
var 

TT :Byte; ( Deklaracja zmiennej liczbowej całkowitej ) 
begin 

for TT:= 97 to 122 do 

17” (Chr(TT) = chznak) then chZnak:= Chr(TT-32); 

( 
Jeżeli będzie spełniony warunek Chr(TT) = chZnak, tj. podana mała litera 
przechowywana w parametrze chZnak będzie równa literze zwróconej przez 
funkcję Chr, to przypisz zmiennej "chZnak" wielką literę. 


DuzyZnak:= chZnak; C Funkcja zwraca dużą literę ) 
end; 


function WyrazDuzaLitera(txtStr :String; chrFind :Char) :String: 
( Funkcja zamienia pierwszą literę każdego wyrazu na wielką literę ) 
var 
TT :Integer; ( Deklaracja zmiennej liczbowej całkowitej ) 
txtTemp :String: ( Deklaracja zmiennej tekstowej ) 


begin 
WyrazDuzaLitera:= ''; ( Funkcja zwróci znak pusty ) 
1” (txtStrO'') then 
begin 


C Jeżeli zmienna txtStr zawiera jakiś tekst, to wykonaj poniższe instrukcje 
) 


txtTemp:= ''; C Wyzerowanie zmiennej tekstowej ) 
for TT:=> 2 to Length(txtStr) do 
1” (txtStrLTT-1] => CHR(32)) or 
(txtStrLTT-1] = chrFind) then 
txtTemp:= txtTemp+DuzyZnak(txtStrLTT]) 
else 
txtTemp:= txtTemp+txtStr[TT]; 


FOR TT:= 2 TO Length(txtStr) DO - jest wykonywana tyle razy, ile znaków 
znajduje się we wprowadzonym tekście (parametr txtStr). 


Jeżeli będzie spełniony warunek txtStrLTT-1] = CHR(32) lub txtStrLTT-1] = 
chrFind, tj. znak na pozycji TT-1 będzie spacją lub będzie znakiem podanym 
w parametrze chrFind, to zamień następną literę (tj. literę znajdującą się 
na pozycji TT.) na wielką. 
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Length(X) - oblicza z ilu znaków składa się tekst przechowywany 
w parametrze X 
) 


WyrazDuzaLitera:= DuzyZnak(txtStrL[1J)+txtTemp; 
( Pobiera znak pierwszy DuzyZnak(txtStr[1]) z ciągu znaków przechowywany 
w parametrze txtStr, dodając do niego wcześniej pobrane znaki, znajdujące 
się w zmiennej txtTemp oraz przypisuje wszystkie znaki nazwie funkcji. ) 
end; 
end; 


const 
txtTekst = 'borland turbo pascal by borland-team'; 
begin 
Cirścr; 
Writeln('== Każdy wyraz rozpoczyna się z dużej litery =='); 
Writeln('Podany tekst: '+txtTekst); 
Writeln('Każdy wyraz rozpoczyna się z dużej litery: 
'+WyrazDuzaLitera(txtTekst, '-')); 
end. 


Cwiczenie 4.12. Zamiana jednego ciągu znaków na inny 


Napisz program, który umożliwi zamianę jednego ciągu znaków na inny ciąg znaków. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CW24.PAS. 


uses Crt; 


function jtbZnajdzzamien(txtText, txtFind, txtReplace :String) :String: 
C Funkcja zamienia w podanym ciągu znaków (parametr txtText) fragment tego 
ciągu (parametr txtFind) na inny ciąg znaków (parametr txtReplace) ) 
var 
numPos, numLen: Integer; C Deklaracja zmiennych liczbowych całkowitych ) 
begin 
C jtbznajdzzamien ) 


numLen:= 0; ( Wyzerowanie zmiennej liczbowej ) 
numLen:= Length(txtFind); C Wyznaczenie długości ciągu znaków ) 


l 
Pos() - zwraca pozycję znalezionego ciągu znaków. 
Funkcja Pos(Szukany_Tekst, Tekst_w_Którym_się_Szuka) zwraca numer pozycji 
wystąpienia pierwszego znaku podłańcucha (parametr Szukany_Tekst) w ciągu 
znaków (parametr Tekst_w Którym_się_Szuka). 
) 
while (Pos(txtFind, txtText) > 0) do 
begin 
( 
Pętla jest wykonywana tak długo, jak długo będzie występował 
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wyszukiwany ciąg znaków. W przypadku nie znalezienia szukanego 
ciągu znaków, pętla nie zostanie wykonana ani razu. 


numPos:= 0; ( Wyzerowanie zmiennej liczbowej ) 


numPos:= Pos(txtFind, txtText); C Przypisanie zmiennej numPos numeru 
pozycji pierwszego znalezionego 
tekstu w ciągu znaków. ) 


Delete(txtText, numPos, numLen); ( Usunięcie znalezionego tekstu (ciągu 
znaków) ) 
Insert(txtReplace, txtText, numPos); ( Wstawienie nowego tekstu (ciągu 
znaków) w miejsce starego ) 
end; 
jtbZnajdzzamien:= txtText; ( Funkcja zwróci tekst po dokonanych zmianach J 
end; 


const 

txtTekst = 'Autorem programu jest Jan Tadeusz Biernat'; 
begin 

Cir$cr; 

Writeln('Tekst: "'+txtTekst+'"'); 

Writeln; 

Writeln('Program zamieni wyraz "Tadeusz" na wyraz "T."'); 

Writeln; 

Writeln('Tekst po zamianie: "'+jtbZnajdzZamien(txtTekst, 'Tadeusz', 
*'T.')0+'"'); 
end. 


Ćwiczenie 4.13. Zapisanie danych do pliku złożonego z rekordów 


Napisz program, który umożliwi zapisanie danych do pliku złożonego z rekordów. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CW25.PAS. 


uses Crt, Dos; 


type 
C Struktura pliku złożonego z rekordów ) 
TDane = record 
Nazwisko :StringL60]; 
Imie :String.[30]; 
Wiek :String.[3]; 
end; 


var 
RF :file of TDane; C Deklaracja zmiennej rekordowej RF ) 


Dane :TDane; C Deklaracja obiektu Dane ) 
begin 
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CiIrSecr; ( Czyści zawartość ekranu ) 

Writeln; C Przejście o jeden wiersz w dół ) 

Writeln('== Plik złożony z rekordów - zapisywanie =="); 
Writeln; 


Assign(RF, 'dane.dat'); (C Skojarzenie pliku o nazwie DANE.DAT 
ze zmienną plikową RF ) 
Rewrite(RF); C Utworzenie nowego pliku o nazwie skojarzonej 
ze zmienną plikową RF J 

repeat 

Write('Podaj nazwisko:'); C Wyświetla pytanie ) 

Readln(Dane.Nazwisko); ( Pobiera dane z klawiatury i przypisuje je 

do obiektu Dane.Nazwisko ) 


Write('Podaj imie:'); 
Readin(Dane.lImie): 


Write('Podaj wiek:'); 
Readln(Dane.Wiek); 


1f (Dane.Nazwisko<>'') then Write(RF, Dane); C Zapisz dane do pliku, 
gdy obiekt Dane.Nazwisko będzie zawierał tekst. 
W przeciwnym razie nie wykonuj zapisu. ) 


Writeln; 
unt11 (Dane.Nazwisko = ''); £( Powoduje wyjście z pętli, gdy obiekt 
Dane.Nazwisko nie zawiera żadnego tekstu ) 
Close(RF); ( Zamknij plik skojarzony ze zmienną RF ) 
end. 


Ćwiczenie 4.14. Odczytanie danych z pliku złożonego z rekordów 


Napisz program, który umożliwi odczytanie danych z pliku złożonego z rekordów. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CW25SA.PAS. 


uses Crt, Dos; 


type 
C Struktura pliku złożonego z rekordów ) 
TDane = record 
Nazwisko :String[60]; 
Imie :StringC[30]; 
Wiek :StringL3]; 
end; 


var 
RF :file of TDane; C Deklaracja zmiennej rekordowej RF ) 
Dane :TDane; ( Deklaracja obiektu Dane ) 
begin 
CirScr; ( Czyści zawartość ekranu ) 
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Writeln; ( Przejście o jeden wiersz w dół ) 
Writeln('== Plik złożony z rekordów - odczytywanie =="); 
Writeln; 


Assign(RF, 'dane.dat'); ( Skojarzenie pliku o nazwie DANE.DAT ze zmienną 
plikową RF ) 
Reset(RF); ( Otwarcie pliku rekordowego skojarzonego 
ze zmienną plikową RF ) 
while not EOF(RF) do 
begin 
Pętla wykonywana jest do chwili osiągnięcia końca pliku. 
0 tym, że plik osiągnął swój koniec informuje funkcja E0OF, która jest 
skojarzona ze zmienną plikową TF. Pętla spowoduje wyświetlenie wszystkich 
danych pobranych z pliku skojarzonego ze zmienną plikową RF J 


Read(RF, Dane); C Wczytanie danych do obiektu Dane ) 


Writeln(Dane.Nazwisko, ' '"', Dane.lmie, '" "', Dane.Wiek); 
C Wyświetlenie zawartości obiektu Dane ) 
end; 
Close(RF); C Zamknięcie pliku skojarzonego ze zmienną plikową RF )J 
end. 


Ćwiczenie 4.15. Przekazanie tablicy jako parametru funkcji 


Napisz program, który umożliwi przekazanie tablicy jako parametru przenoszącego 
dane do funkcji. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CW26.PAS. 


uses Crt; 
type 
TTablica = array[0..3] of Integer; ( Deklaracja typu tablicowego TTablica ) 


procedure Wyswietl(Tablica :TTablica); 
( Procedura wyświetla zawartość tablicy podanej jako parametr ) 


var 


A :Integer; 

begin 

for A:= 0 to 3 do 
Write(TablicaC[A], ' '); 

end; 


var 


Tabliczka :TTablica; C Deklaracja zmiennej tablicowej ) 
begin 

C Wypełnienie tablicy danymi ) 

Tabliczka[0]:= 11; 

Tabliczka[1]:= 12; 

Tabliczka[2]:= 13; 
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Tabliczkal3]:= 14; 


CirSer; ( Czyści ekran ) 
Writeln; 
Wyswietl(Tabliczka); ( Przesłanie tablicy, jako parametru 
do funkcji Wyswietl ) 
end. 


Ćwiczenie 4.16. Przeszukiwanie tablicy 


Napisz program, który wypełni tablicę losowymi liczbami, a następnie przeszuka ją 
i poda informację o liczbie wystąpień szukanej wartości. Szukaną wartość wprowa- 
dzamy z klawiatury. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CW26A.PAS. 


uses Crt; 


var 

Tabliczka :array[0..11] of Shortint; (C Deklaracja zmiennej tablicowej ) 

TT, A, Sum :Shortint; C Deklaracja zmiennych liczbowych całkowitych ) 
begin 

CIr$ścr; 

Writeln; 

Writeln('Tabela - wyszukiwanie wpisanej liczby'): 

Writeln; 


Randomize; ( Zainicjowanie generatora liczb losowych 
for TT:= 0 to 1l do 
TabliczkaC[TT]:= Random(10); C Wypełnienie tablicy wylosowanymi liczbami 
z zakresu od 0 do 10. Za każdym obiegiem 
pętli losowana jest nowa liczba. ) 


[sa) 


Wyświetlenie zawartości tablicy ) 

Writeln('Wylosowane liczby:'); 

for TT:= 0 to 1l do 
Write(TabliczkaLlTT], ' '); 


Writeln; 

Writeln; 

Write('Podaj liczbę:'); 
Readln(A); 

Sum:= 0; 


( Obliczenie liczby wystąpień podanej wartości w tablicy liczb losowych) 
for TT:= 0 to 1l do 
1” (TabliczkaCTT] = A) then Sum:= Sum+l; 
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( Wyświetlenie wyników, ile razy wystąpiła w tablicy podana 
z klawiatury liczba ) 
Writeln; 
Writeln('Liczba ', A, ' powtarza się ', Sum, ' raz(ly)'):; 
end. 


Ćwiczenie 4.17. Algorytm iteracyjny i rekurencyjny 
Napisz programy liczenia silni. Pierwszy program ma wykorzystywać algorytm iteracyj- 
ny, a drugi algorytm rekurencyjny. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CW28_ir.PAS. 


Algorytm iteracyjny polega na powtarzaniu podanych działań w celu wyznaczenia 
wartości metodą kolejnych kroków zbliżających nas do wyniku. 


Algorytm rekurencyjny polega na wywoływaniu funkcji lub procedury przez samą 
siebie, w celu wykonania określonego zadania. 


Poniżej przedstawiono oba algorytmy, prezentujące obliczenie silni. 
uses Crt; 


( Algorytm iteracyjny ) 
function ITER_Silnia(N :Integer) :Longint; 


var 
TT :Integer; C Deklaracja zmiennej liczbowej całkowitej ) 
SP :Longint; 

begin 


ITER_Silnia:= -1l; 
SP:= 0; ( Wyzerowanie zmiennej SP ) 


1” (N> -1) then 
begin 

C Jeżeli zawartość zmiennej N jest większa od -lL, 
to wykonaj poniższe instrukcje ) 


SP:= 1; ( Przypisanie zmiennej SP liczby 1 ) 


for TT:= 1 to N do 
Sp:= SP*TT; C Pomnożenie zmiennej Sp o kolejną liczbę naturalną 
znajdującą się w zmiennej TT ) 


ITER_Silnia:= Sp; C Funkcja zwraca wynik przechowywany w zmiennej Sp ) 
end; 
end; 


C Algorytm rekurencyjny J 
function REK_Silnia(N :Integer) :Longint; 
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begin 
1” (N< 0) then 
REK_Silnia:= -1 
else 
1” (N=0) then 
REK_Silnia:= 1 
else 
REK Silnia:= N*REK_Silnia(N-1); C REK_Silnia(N-1) - wywołanie funkcji 
przez samą siebie, z jednoczesnym 
pomniejszeniem zmiennej (parametru) 
No wartość 1 ) 
end; 


begin 

CIr$ścr; 

Writeln('== Kod iteracyjny i rekurencyjny =="); 

Writeln; 

Writeln('Algorytm iteracyjny (Silnia z 10): ', ITER_Silnia(10)); 

Writeln; 

Writeln('Algorytm rekurencyjny (Silnia z 10): ', REK_Silnia(10)); 
end. 


Wynik jest identyczny w obu przypadkach, choć obliczenia przebiegają całkiem inaczej. 


Ćwiczenie 4.18. Obliczenie wieku na podstawie daty urodzenia 


Napisz program, który poda wiek osoby, na podstawie daty urodzenia wprowadzonej 
z klawiatury. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CW29.PAS. 


uses Crt, Dos; 


function IntToStr(X :Longint) :String: 
C Funkcja przekształca liczbę całkowitą na ciąg cyfr ) 
var 

txtText :String; C Deklaracja zmiennej tekstowej ) 
begin 

C IntToStr ) 

STR(X, txtText); 

IntToStr:= txtText; C Funkcja zwraca wartość tekstową ) 
end; 


function StrTolnt(txtStr :String) :Longint: 
C Funkcja przekształca ciąg cyfr na wartość liczbową całkowitą ) 
var 
numNumber :Longint; ( Deklaracja zmiennej liczbowej całkowitej ) 
numErrCode :Integer; 
begin 
C StrTolnt ) 
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VAL(txtStr, numNumber, numErrCode); 
StrTolnt:= numNumber; ( Funkcja zwraca wartość numeryczną 
typu całkowitego ) 

end; 
function DodajZeroPrzed(txtStr :String) :String; 
l 
Funkcja wstawia znak O przed jednoznakową liczbą traktowaną jako tekst. 
W innym przypadku zwraca dwie cyfry danej liczby. 


Przykład: 
1) 10 - zwróci liczbę 10 traktowaną jako tekst 
2) 3 - zwróci liczbę 03 traktowaną jako tekst, przez 
dodanie zera przed cyfrą 3 
) 
begin 
( DodajzeroPrzed ) 


( Funkcja zwraca liczbę przechowywaną w parametrze txtStr ) 
DodajzeroPrzed:= txtStr; 


1” (Length(txtStr) = 1) then DodajzeroPrzed:= '0'+txtStr; 

( 
Jeżeli liczba znaków w zmiennej txtStr jest równa jeden, to wykonaj 
instrukcję po słowie THEN (tj. umieść przed pojedynczą cyfrą liczbę 0). 


| hh m > || dLd—A 


Length(X) - funkcja zwraca liczbę znaków zawartą 
w parametrze tekstowym X. 


function DATA_DzisJest :String; 
( Funkcja podaje bieżącą datę pobraną z zegara komputera J 
var 
YE, M, D, DOW :Word; 
begin 
GetDate(YE, M, D, DOW); £ Pobiera bieżącą datę systemową i dzieli ją 
na rok (YE), miesiąc (M), dzień(D) i dzień 
tygodnia(DOW) ) 


DATA_DzisJest:= IntToStr(YE)+'-'+ 
DodajZeroPrzed(IntToStr(M))+'-'+ 
DodajZeroPrzed(IntToStr(D)); C Zwraca datę w formacie RRRR-MM-DD J 
end; 


var 
txtDataUr :String; C Deklaracja zmiennej tekstowej ) 
Wiek :Integer; ( Deklaracja zmiennej liczbowej całkowitej ) 
begin 
Ct1rScr; C Czyści ekranu ) 
Writeln: C Przejście o jeden wiersz w dół ) 
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Writeln('== Obliczanie lat ==');0 

Writeln('Dzisiaj jest:'+CHR(32)+DATA_DzisJest); 

Writeln; 

Write('Podaj datę urodzenia:'); 

Readln(txtDataUr); ( Pobiera datę wpisaną z klawiatury i przypisuje ją 
zmiennej "txtDataUr" ) 

Wiek:= 0; 

Wiek:5 StrTolnt(Copy(DATA_DzisJest, 1, 4))-StrTolnt(txtDataUr); 


( 
Copy(Ciag_Znakow, Pozycja_Pierwszego_Znaku, Liczba_Znakow) 


Funkcja zwraca fragment ciągu znaków. Liczba znaków jest określana 
w parametrze Liczba_Znakow. Liczenie znaków odbywa się od liczby 
podanej w parametrze Pozycja _Pierwszego_Znaku. 

Uwaga. Znak spacji jest traktowany jako znak. 


Na przykład: Copy('To jest tekst', 4, 6) - efektem pracy tej 
funkcji będzie wybranie fragmentu tekstu "jest t” z całego ciągu 
znaków. 

) 


Writeln; 
Writeln('Masz '+lIntToStr(Wiek)+' lat(a)'); 
end. 


Ćwiczenie 4.19. Separatory tekstu 


Napisz program umożliwiający podział tekstu na kilka wierszy z wykorzystaniem sepa- 
ratorów tekstu. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CW30.PAS. 


Podano tekst „ATARĘSPECTRUM;AMIGA;ATARI TT". Separatorem tekstu jest tu 
znak średnika ; . Należy napisać taką funkcję, która każdy wyraz umieści w innym 
wierszu (z pominięciem znaku separatora tekstu). Czyli wynik będzie miał postać: 


ATARI 
SPECTRUM 
AMIGA 
ATARI TT 


uses Crt; 


function TEXT_jbGetColumnText(txtFind :String; var txtString :String) 

:String; 

C Funkcja umożliwia pobranie fragmentu ciągu znaków, wykorzystując 
separator tekstu jako wskaźnika końca ) 


var 
numLen, numPos :Integer; ( Deklaracja zmiennych liczbowych całkowitych J 


txtTemp :String; C Deklaracja zmiennej tekstowej ) 
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begin 
( TEXT_jbGetColumnText ) 
TEXT_jbGetColumnText:= ''; C Funkcja zwraca znak pusty ) 


1” (txtFind<>'') and (txtStringO'') then 
begin 

( Jeżeli zmienna txtFind i zmienna txtString przechowują przynajmniej 
jeden znak, to wykonaj poniższe instrukcje ) 


0: ( Wyzerowanie zmiennej liczbowej ) 

Length(txtFind); ( Przypisanie zmiennej liczbowej wartości 
określającej liczbę znaków w tekście, który 
jest przechowywany w zmiennej txtFind J 


numLen: 
numLen: 


numPos:= 0; 
numPos:= Pos(txtFind, txtString); 
l 


Pos(Szukane_Znaki, Lancuch_Znakow) 


Funkcja zwraca miejsce występowania pierwszego znaku danego 
podłańcucha (parametr Szukane_Znaki) w ciągu znaków 
(parametr Lancuch_Znakow). 

) 


TEXT_jbGetColumnText:= txtString; C Funkcja zwraca tekst, który jest 
przechowywany w zmiennej txtString 
) 


1” (numPos<>0) then 
begin 
( Jeżeli w tekście został odnaleziony podany znak (tj. zmienna numPos jest 
różna od 0), to wykonaj poniższe instrukcje ) 


TEXT_jbGetColumnText:= Copy(txtString, 1. numPos-1); C Funkcja zwraca 
okrojony przez funkcję COPY tekst znajdujący 
się w zmiennej txtString. )J 


txtTemp:= ''; 
txtTemp:= Copy(txtString, numPos+numLen, Length(txtString)):; 


txtString:= ''; 
txtString:= txtTemp: 
end; 


end; 
end; 


var 
txtTekst :String: 
numznak, TT :Integer; 
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begin 
txtTekst:= 'Atari;Spectrum;Amiga;Atari TT'; 


numznak:= 0; 


(C Oblicza liczbę separatorów zawartą w tekście ) 
for TT:= 1 to Length(txtTekst) do 


if (Copy(txtTekst, TT, 1)=';') then numżnak:= numZnak+l; 
C1rScr; 


Writeln; 
Writeln('== Podzielenie tekstu na kilka wierszy =='); 


C Dzieli łańcuch znaków ) 
for TT:=s 0 to numZznak do 


Writeln(TEXT_jbGetColumnText(';', txtTekst)); 
end. 


5. Cwiczenia zaawansowane 


W rozdziale tym przedstawiono ćwiczenia, w których zawarte są gotowe progra- 
my. Opisując je, ograniczyłem się jedynie do opisu, co dana funkcja (lub procedura, 
albo blok instrukcji) wykonuje. Komentarze omawiają wykonywane działania. 


Ćwiczenie 5.1. Przypominacz 


Napisz program, który będzie przypominał o ważnych datach (np. herbatka u cioci). 
Ponadto program ma wykrywać ostatni dzień miesiąca oraz umożliwić wyświetlanie 
informacji co miesiąc. Dane mają być umieszczone w pliku tekstowym. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CW3I1Z.PAS. 


uses Crt, Dos; 


function FileExists(txtFileName :String) :Boolean; 
( Funkcja sprawdza, czy na dysku istnieje plik o nazwie podanej 
w parametrze txtFileName. Jeżeli plik istnieje, to funkcja zwróci wartość 
TRUE (Prawda), w przeciwnym przypadku funkcja zwróci FALSE (Fałsz) ) 
var 
Info :SearchRec; 
begin 
( FileExists ) 
FindFirst(txtFileName, Directory, Info); 
FileExists:= FALSE; 
1” (DosError = 0) then FileExists:= TRUE; 
end; 


function IntToStr(X :Longint) :String; 
( Funkcja przekształca wartość numeryczną na ciąg cyfr ) 
var 
txtText :String; 
begin 
C IntToStr ) 
STR(X, txtText): 
IntToStr:= txtText; 
end; 


function StrTolnt(txtStr :String) :Longint; 
( Funkcja przekształca ciąg cyfr na wartość numeryczną ) 
var 

numNumber :Longint; 
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numErrCode :Integer; 
begin 
C StrTolnt ) 
VAL(txtStr, numNumber, numErrCode); 
StrTolnt:= numNumber; 
end; 


function DodajZzeroPrzed(txtStr :String) :String: 
C Funkcja dodaje cyfrę 0 przed pojedynczą cyfrą, np. 1 -> 01 ) 
begtn 

( DodajZzeroPrzed ) 

DodajzeroPrzed:= txtStr; 

1” (Length(txtStr) = 1) then DodajZzeroPrzed:= '0'+txtStr; 
end; 


function DATA_DzisJest :String; 
C Funkcja podaje datę bieżącą, pobraną z komputera ) 
var 

YE, M, D, DOW :Word; 

begin 

GetDate(YE, M, D, DOW); 

DATA_DzisJest:= IntToStr(YE)+'-'+ 
DodajzeroPrzed(IntToStr(M))+'-'+ 
DodajZeroPrzed(IntToStr(D)); 

end; 


function DATA_DzisJestDzien :String; 
( Funkcja podaje nazwę dnia tygodnia, który jest określany na podstawie 
bieżącej daty systemowej ) 
const 
DzienTygodnia :array [0..6] of String = ('Niedziela', 
'Poniedzialek', 


'Wtorek', 
'Sroda', 
'Czwartek', 
'Piatek', 
'Sobota'); 

var 

YE, M, D, DOW :Word; 
begin 


GetDate(YE, M, D, DOW); 
DATA_DzisJestDzien:= DzienTygodniaLDOW]; 
end; 


function DATA_MiesiacMaDni(txtDate :String) :Shortint; 
( Funkcja podaje liczbę dni, jaką ma miesiąc na podstawie podanej daty ) 
var 

numMonth, numMonthToDays :Shortint; 

numYear :Integer; 

begin 

C DATA_MiesiacMaDni ) 

numYear:= 0; 

numYear:= StrTolnt(Copy(txtDate, 1, 4)); 
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numMonth:= 0; 
numMonth:= StrTolnt(Copy(txtDate, 6, 2)): 


numMonthToDays:= 0; 
1” (numMonth in £1, 3, 5, 7, 8, 10, 12]) then numMonthToDays:= 31; 
17” (numMonth in [4, 6, 9, 11]) then numMonthToDays:= 30; 
1f (numMonth = 2) then 
begin 
numMonthToDays:= 28; 
1f ((numfear mod 4 = 0) and (numfear mod 100 <0)) or 
(numYear mod 400 = 0) then 
begin 
numMonthToDays:= 0; 
numMonthToDays:= 29; 
end; 
end; 
DATA_MiesiacMaDni:= numMonthToDays; 
end; 


function jtbPrzypominacz(txtDataMD :String) :Boolean; 

( Funkcja sprawdza, czy podana data (przechowywana w parametrze txtDataMD) 
zgadza się z datą pobraną z komputera. Jeżeli daty się zgadzają to 
funkcja zwraca wartość TRUE (Prawda), w innym przypadku funkcja zwraca 
FALSE (Fałsz) ) 

var 
txtRMiesiac, txtRDzien, txtNazwaDnia :String; 

txtMiesiac, txtDzien :String; 
numiloscDni :Shortint; 

begin 
( jtbPrzypominacz ) 
jtbPrzypominacz:= FALSE; 


.., 


Copy(DATA_DzisJest, 6, 2): 


txtRMiesiac: 
txtRMiesiac: 


txtRDzien:= "''; 
txtRDzien:= Copy(DATA_DzisJest, 9, 2); 


txtNazwaDnia:5 ''; 
txtNazwaDnia:= Copy(DATA_DzisJestDzien . 1, 2); 


numiIloscDni:= 0; 
numiIloscDni:= DATA_MiesiacMaDni (DATĄA_DzisJest); 


1” (txtDataMDO'') then 
begin 


txtMiesiac:= ''; 
txtMiesiac:= DodajZeroPrzed(Copy(txtDataMD, 1, 2)); 


txtDzien:= ''; 
txtDzien:= DodajZeroPrzed(Copy(txtDataMD, 4, 2)); 
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17” (txtDzien = '!!') then 


begin 


txtDzien:= ''; 
txtDzien:= IntToStr(numliloscDni); 


end; 


1” (txtMiesiac+'-'+txtDzien 
(txtMiesiac+'-'+txtDzien 
(txtMiesiac+'-'+txtDzien 
(txtMiesiac+'-'+txtDzien 
(txtMiesiac+'-'+txtDzien 
(txtMiesiac+'-'+txtDzien 


end; 
end; 


txtRMiesiac+' -'+txtRDzien) or 
txtRMiesiac+'---') or 
'---'+txtRDzien) or 
txtRMiesiac+'-'+txtNazwaDnia) or 
'---'+txtNazwaDnia) or 

----- ') then jtbPrzypominacz:= TRUE; 


procedure OdczytajPlik; 
( Procedura odczytuje zawartość pliku tekstowego, który zawiera daty 
poszczególnych uroczystości ) 


const 
txtNazwaPliku = 'reminder.txt'; 
var 
txtCzytaj :String; 
FT :Text; 
TT :Longint; 
okJest :Boolean; 
begin 


( Przypominacz ) 
1f (FileExists(txtNazwaPliku) = TRUE) then 


begin 


Assign(FT, txtNazwaPliku); 
Reset(FT); 


TT:= 0; 


while not EOF(FT) do 


begin 


txtCzytaj:= ''; 
ReadLn(FT, txtCzytaj); 


okJest:= FALSE; 
okJest:= jtbPrzypominacz(Copy(txtCzytaj, 1, 50)): 
1” (okJest = TRUE) then 


begin 


Writeln(IntToStr(TT+1)+' )'+CHR(32)+ 


Copy(DATA_DzisJest, 6, 50+CHR(32)+ 
Copy(txtCzytaj, 7, 77)); 


TT:= TT+1; 


end; 
end; 


C]lose(FT) 


end; 


C Naciśnij dowolny klawisz... J 


Writeln; 


1” (TT >0) then 


Ćwiczenia zaawansowane 83 


begin 
Write('Naciśnij dowolny klawisz...'); 
repeat 
until KeyPressed; 
end; 
end; 


begin 
Writeln; 
Writeln('== Przypominacz ='); 
Writeln('Copyright(c)by Jan-Tadeusz Biernat'); 
Writeln; 
Writeln('Dzisiaj jest:'+CHR(32)+DATA_DzisJest); 
Writeln('Dzień: '+CHR(32)+DATA_DzisJestDzien); 
Writeln; 
OdczytajPlik; 

end. 


Ćwiczenie 5.2. Słownik 


Napisz program, który umożliwi wyświetlenie objaśnienia do podanego słówka. Słów- 
ko, którego znaczenia chcemy się dowiedzieć, należy podać jako parametr przy urucho- 
mieniu programu. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CW32Z.PAS. 


uses Crt, Dos; 


function LITERY_Male(txtStr :String) :String; 
C Funkcja zamienia wielkie litery na małe ) 


function MalyZnak(chZznak :Char) :Char; 
C Funkcja zamienia wielką literę na małą )J 
var 
TT :Byte; 
begin 
for TT:= 65 to 90 do 
1f (Chr(TT) = chZnak) then chZnak:= Chr(TT+32); 
MalyZnak:= chZnak; 
end; 


var 
I :Byte; 
begin 
for I:s 1 to Length(txtStr) do 
txtStr[I]:= MalyZznak(txtStrL[I]); 
LITERY_Male:= txtŚtr; 
end; 
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function LITERY_Duze(txtStr :String) :String; 
( Funkcja zamienia małe litery na wielkie ) 


function DuzyZnak(chznak :Char) :Char; 
( Funkcja zamienia małą literę na wielką literę ) 
var 
TT :Byte; 
begin 
for TT:= 97 to 122 do 
1” (Chr(TT) = chZnak) then chZnak:= Chr(TT-32); 
DuzyZnak:= chZnak; 
end; 


var 
I :Byte; 
begin 
for I:s5 1 to Length(txtStr) do 
txtStrLIJ]:= DuzyZnak(txtStrCI]); 
LITERY_Duze:= txtStr; 
end; 


function FileExists(txtFileName :String) :Boolean; 

( Funkcja sprawdza, czy plik o podanej nazwie znajduje się na dysku. 
Jeżeli tak, to funkcja zwróci wartość TRUE (Prawda). W innym 
przypadku funkcja zwróci wartość FALSE (Fatsz) ) 

var 
Info :SearchRec; 

begin 
( FileExists ) 

FindFirst(txtFileName, Directory, Info); 

FileExists:= FALSE; 

1f (DosError = 0) then FileExists:= TRUE; 
end; 


function Slownik(txtZnajdz :String) :Boolean; 

( Funkcja odczytuje plik tekstowy i wyszukuje objaśnienie do podanego 
słówka w parametrze txtZnajdz. Gdy dane słówko zostanie odnalezione, 
to następuje wyświetlenie tego słówka oraz jego objaśnienia ) 

const 


txtNazwaPliku = 'slow.txt'; 
var 
txtSzukaj, txtCzytaj :String; 
FT :Text; 
begin 
1” (FileExists(txtNazwaPliku) = TRUE) then 
begin 


Assign(FT, txtNazwaP]iku); 
Reset(FT); 
while not EOF(FT) do 
begin 
txtSzukaj:=5 ''; 
ReadLn(FT, txtSzukaj); 
1” (LITERY_Male(txtSzukaj) = '['+LITERY_Male(txtZnajdz)+']') then 
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begin 
Writeln(LITERY_Duze(txtZnajdz)); 
while not EOF(FT) do 
begin 
txtCzytaj:= ''; 
ReadLn(FT, txtCzytaj); 
1” (Copy(txtCzytaj, 1, 1) = '[') then Break; 
Writeln(txtCzytaj); 
end; 
end; 
end; 
Close(FT) 
end; 
end; 


begin 
CirScr; 
Writeln; 
Writeln('==> Słownik =='); 
Writeln; 
1” (ParamStr(1)<>'') then ( Czy podano parametr ) 
S]ownik(ParamStr(1)) 
else 
Writeln('Musisz podać wyraz jako parametr!'); 
end. 


Naciśnij kombinację klawiszy CTRL+F9, w celu uruchomienia programu. 


Po skompilowaniu pliku o nazwie CW32Z.PAS otrzymujemy plik CW32Z.EXE. 
Wykorzystując polecenie menu Tryb MS-DOS, należy w wierszu poleceń wpisać 
nazwę programu 1 słówko, którego znaczenia chcesz się dowiedzieć. 


Przykład: CW32Z.EXE dysk (słowo „dysk” jest parametrem, którego znaczenia chcesz 
się dowiedzieć) i po naciśnięciu klawisza ENTER, zostanie wyświetlone znaczenie 
słówka „Dysk”, zgodnie z informacjami zawartymi w pliku z definicjami. 


Ćwiczenie 5.3. Menu 


Napisz program ilustrujący zasadę działania menu. Oprócz możliwości wyboru jedne- 
go z kilku elementów, ma również umożliwić opuszczenie programu po naciśnięciu 
klawisza ENTER lub EŚC z jednoczesnym wyświetleniem wybranego elementu. 


Sposób wykonania 

Program znajduje się na dyskietce w katalogu TP7-CW w pliku CW33Z.PAS. 
uses Crt; 

function fSpc(numSpc :Shortint) :String; 


C Funkcja zwraca ciąg spacji. Liczba spacji zależy od liczby przechowywanej 
w parametrze numSpc J 
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var 
TT :Shortint; 
txtS :String; 
begin 
C fSpc ) 
txtS:= '"'; 
for TT:= 0 to numSpc-1l do 
txtS:= txtS+CHR(32); 
fSpc:= txt$; 
end; 


procedure Menu(mX, mY, mS :Shortint; txtStr :String; 
numMenu :Shortint; war numAct :Shortint); 
( Procedura wyświetla jeden element menu. 
Parametr „numMenu” określa numer kolejnego elementu. Natomiast parametr 
„numAct” umożliwia zaznaczenie elementu, poprzez podanie jego numeru. 
Zaznaczenie elementu w menu następuje dopiero po porównaniu numerów 
przechowywanych w parametrach „numMenu” i „numAct”. Jeżeli oba numery są 
takie same, to następuje podświetlenie wybranego elementu o numerze 
przechowywanym w parametrze „numMenu”. 
) 
begin 
( Menu ) 
TextBackGround(BLACK); 
TextColor(WHITE); 
GotoXY(mX, mY); 
Write(fSpc(mS+2)); 
GotoXY(mX+2, mY); 
Write(Copy(txtStr, 1, mS-2)); 
1f (numMenu = numAct) then 
begin 
TextBackGround(WHITE); 
TextColor(BLACK); 
GotoXY(mX, mY); 
Write(fSpc(mS+2)); 
GotoXY(mX+2, mY); 
Write(Copy(txtStr, 1, mS-2)); 
end; 
end; 


function KN_KlawiszNacisnij :Integer; 
C Funkcja podaje kod naciśniętego klawisza ) 


var 
numKey :Integer; 
Ch :Char; 
begin 


C KN_KlawiszNacisnij ) 
repeat until KeyPressed; 
Ch:= ReadkKey; 
numKkey:= Ord(Ch); 
1f (Ch = 470) then 
begin 
Ch:= Readkey; ( klawisze o kodach: 359 - Help; 9 - TAB; 368 - F10 ) 
numKey:= Ord(Ch)+300; 
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end; 
l 
Poniższa konstrukcja: 
if (Ch = f0) then 
begin 
Ch:= Readkey; 
numKey:= Ord(Ch)+300; 
end; 
umożliwia wykrycie naciśniętego klawisza funkcyjnego lub nawigacyjnego 
(tzw. kursory). Dzięki temu, że do kodu naciśniętego klawisza zostaje 
dodana wartość 300, możliwe jest oprogramowanie klawiszy funkcyjnych 
i nawigacyjnych. 
) 


KN_KlawiszNacisnij:= numKEY; ( Funkcja zwraca numer naciśniętego klawisza J 
end; 


procedure KlawiszeMenu; 
( Procedura buduje i obsługuje menu ) 
var 

numMenu :Shortint; 

numKkey :Integer; 

begin 

( KlawiszeMenu ) 

numMenu:= 0; 

numMenu:= l; 


repeat 
Menu(5, 4, 12, 'Element 1', 1, numMenu); (Dodanie nowego elementu menu) 
Menu(5, 5, 12, 'Element 2', 2, numMenu); 
Menu(5, 6, 12, 'Element 3', 3, numMenu); 


Menu(5, 8, 12, 'Element 5', 5, numMenu); 
Menu(5, 9, 12, 'Element 6', 6, numMenu); 
Menu(5, 10, 12, 'Element 7', 7, numMenu); 
Menu(5, 11, 12, 'Element 8', 8, numMenu); 
Menu(5, 12, 12, 'Element 9', 9, numMenu); 
numkey:= 0; 

numkey:= KN_KlawiszNacisnij; 

1f (numKkey = 372) then Dec(numMenu):; ( Up ) 
1” (numkey = 380) then Inc(numMenu); C Down ) 


4 
5 
6 
Menu(5, 7, 12, 'Element 4', 4, numMenu); 
8 
9 


1” (numMenu > 9) then numMenu:= l; 

1” (numMenu < 1) then numMenu:= 9; 
unt11 (numKey = 27) or (numkey = 13); 
TextBackGround(BLACK); 
TextColor(LightGRAY); 

GotoXY(5, 15); 
Writeln('Wybrales: Element ', numMenu); 
end; 
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begin 
TextBackGround(BLACK); 
TextColor(LightGRAY); 
Cirścr; 
Writeln; 
Writeln('== Menu =='); 
KlawiszeMenu; 

end. 


Ćwiczenie 5.4. Wprowadzanie danych — obsługa klawiatury 


Napisz program, który umożliwi wprowadzanie danych z klawiatury. Program ma rów- 
nież umożliwić przerwanie wprowadzania danych, przez naciśnięcie klawisza ESC. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CW34Z.PAS. 


uses Crt; 


procedure KT_KursorTekst(X, Y, TS :Shortint; txtStr :String): 
( Procedura wyświetla tekst wprowadzony z klawiatury ) 
var 
TT :Shortint; 
txtSpc :String; 


begin 
C KT_KursorTekst J 
txtSpc:= ''; 


for TT:= 0 to TS do 
txtSpc:= txtSpc+CHR(32); 


TextBackGround(BLACK); 
GotoXY(X, Y); 
Write(txtSpc); 
TextColor(WHITE); 
GotoXY(X, Y); 
Write(txtStr); 

end; 


function KN_KlawiszNacisnij :Integer; 
C Funkcja podaje kod naciśniętego klawisza ) 


var 
numKey :Integer; 
Ch :Char; 
begin 


C KN_KlawiszNacisnij ) 
repeat until KeyPressed; 
Ch:= ReadkKey; 
numKkey:= Ord(Ch); 
1” (Ch = 4/0) then 
begin 
Ch:= ReadkKey; 
numkey:= Ord(Ch)+300; 
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end; 
KN_KlawiszNacisnij:= numKEY; (Funkcja zwraca numer naciśniętego klawisza) 
end; 


function Klawisze(X, Y, TS :Shortint; txtStr :String) :String; 
( Funkcja obsługuje klawiaturę dzięki kontroli liczby wprowadzanych znaków. 
ESC - umożliwia rezygnację z wprowadzania znaków; 
ENTER - zatwierdza wprowadzony tekst ) 
var 
txtTekst :String; 
numLen :Shortint; 
numKkey :Integer; 
begin 
( Klawisze ) 
TextBackGround(BLACK); 
TextColor(WHITE); 
GotoXY(X, Y); 
Write(txtStr+':'); 
txtTekst:5 ''; 
repeat 
KT_KursorTekst(X+Length(txtStr)+1l, Y, TS, txtTekst); 
numKkey:=> 0; 
numkey:= KN_KlawiszNacisnij; 
1f (numKkey = 8) then 
begin 
numLen:= 0; 
numLen:= Length(txtTekst); 
txtTekst:= Copy(txtTekst, 1, Length(txtTekst)-1); 
end 
else 
1” (numkey = 27) then 
begin 
Klawisze:= ''; 
end 
else 
1” (numKkey = 13) then 
begin 
Klawisze: 
end 
else 
begin 
1” (Length(txtTekst) < TS) then 
begin 
txtTekst:= txtTekst+CHR(numkey); 
end; 
end; 
unt11 (numKkey = 27) or (numkKey = 13); 
TextBackGround(BLACK); 
TextColor(LightGRAY); 
end; 


txtTekst; 
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var 
txtNapis :String; 
begin 
TextBackGround(BLACK); 
TextColor(LightGRAY); 
CIr$cr; 
Writeln; 
Writeln('=> Obsługa klawiatury =="); 
txtNapis:= ''; 
txtNapis:=> Klawisze(4, 4, 44, 'Wprowadz tekst'); ( Wywołanie funkcji 
Klawisze obsługującej klawiaturę ) 


GotoXY(4, 6); 
Write('Wprowadzony tekst to: '+txtNapis): 
end. 


Ćwiczenie 5.5. Tabliczka mnożenia 


Napisz program, który umożliwia sprawdzenie znajomości tabliczki mnożenia. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w pliku CW35Z.PAS. 
uses Crt; 


procedure KT_KursorTekst(X, Y, TS :Shortint; txtS$tr :String); 
( Procedura wyświetla tekst wprowadzony z klawiatury ) 
var 
TT :Shortint; 

txtSpc :String; 
begin 

( KT_KursorTekst ) 

txtSpc:= ''; 

for TT:=5 0 to TS do 

txtSpc:= txtSpc+CHR(32); 


TextBackGround(BLACK); 
GotoXY(X, Y); 
Write(txtSpc): 
TextColor(WHITE); 
GotoXY(X, Y); 
Write(txtStr); 
end; 
function KN_KlawiszNacisnij :Integer; 
C Funkcja podaje kod naciśniętego klawisza ) 


var 
numKey :Integer; 
Ch :Char; 
begin 


C KN_KlawiszNacisnij ) 
repeat until KeyPressed; 
Ch:= ReadkKey; 
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numkey:= Ord(Ch); 
1f (Ch = ff0) then 
begin 
Ch:= ReadkKey; 
numkey:= Ord(Ch)+300; 
end; 
KN_KlawiszNacisnij:= numkKEY; 
end; 


function Klawisze(X, Y, TS :Shortint; txtStr :String) :String; 
( Obsługa klawiatury i weryfikacja wprowadzonych danych. 
Możliwe jest wprowadzanie wyłącznie cyfr. ) 
var 
txtTekst :String; 
numLen :Shortint; 
numKkey :Integer; 
begin 
C( Klawisze ) 
TextBackGround(BLACK); 
TextColor(WHITE); 
GotoXY(X, Y); 
Write(txtStr+':'); 
txtlekst:= ''; 
repeat 
KT_KursorTekst(X+Length(txtStr)+l, Y, TS, txtTekst); 
numKkey:= 0; 
numKkey:= KN_KlawiszNacisnij; 
1” (numKkey = 8) then 
begin 
numLen:= 0; 
numLen:= Length(txtTekst); 
txtTekst:= Copy(txtTekst, 1, Length(txtTekst)-1); 
end 
else 
1” (numKkey = 27) then 
begin 
Klawisze:= ''; 
end 
else 
1” (numkey 
begin 
Klawisze:= txtTekst; 
end 
else 
begin 
1” (Length(txtTekst) < TS) then 
begin 
1” ((numKkey > 47) and (numkey < 58)) then 
txtTekst:= txtTekst+CHR(numkey); 
C Umożliwia wprowadzenie tylko cyfr ) 
end; 
end; 


13) then 
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unt11 (numKkey = 27) or (numkey = 13); 
TextBackGround(BLACK); 
TextColor(LightGRAY); 

end; 


procedure MT_Cyfry(X, Y, Cyfra :Shortint); 

( Procedura wyświetla liczby złożone z pokazanych niżej cyfr) 

const 

txtCyfryl :array[0..10] of String = ( 

" - 4HHHF 1Hk 1HHF 1HHHF 1HF 
'  AHHHHHF  AHHHHHF 1HHHHHHH _ 1HHHHHHHIHF 1HHF 
" 41H 1H+ 1HF_ 1HF 1Hr HF 1HF 1HF 1HHHF 
"41H 1HF 1Hk 1Hk If 1HI HF 1HF 
"4HF 1HF 1HF 1HF 1HHHHIF 1HF  1HF 
"41H iHk 1HF 1HHE IHHHHF  1HF AHF 
"41H 1HF 1HF 1Hk 1HHF 1HF 1HF 
"14H 1HF 1HF 1HHF 1HF 1HHHHHHHHF 
" 41H 1Hk 1HF 1HF I 1HHF 1HF 

' 4HHHHHI  1HHHHHHHHHE 1HHHHHHHHIE 1HHHHHHHHF 1HHHHF 

' - AHHHF 1HHHHHHHHHE_ AHHHHHHIHHF 1HHHF 1HHHHE 


txtCyfry2 :arrayLO..10] of String = ( 
* AHHHHHHF 1HHHE 1HHHHHHIHHE 1HHHF 1HHHF 
" AHHHHHHF 1HHHHHHIF 1HHHHHHHHF_ 1HHHHHHHr  AHHHHHIHF 
"4 1HHF 1 1HF_ 1HF HF 1HF 1HF 
"4 1HF 1HE_ 1HF 1 4F 1HF 
*' SHHHHHHHI  1HF 1HHHE 1H+ 41H 1HHF 1HF 1HF 
"HF IHF  AHHHHHHHHE 1HF  AHHHHHHF AHHF  1HHHF 
j HF 1HHF 1HF 1HF  AHHF 1HF  1HHHHIF 1F 
j HF 1HF dł 1HF  1HF 1 1HF 
"4HF 1HHF 1HF 1Hk 1HF 1HF 1HF 1HF 
"HHHHHHHHHF _— 1HHHHHHE 1HF IHHHHHHF_ _— 1HHHHHHF 
' - AHHHE 1HHHE IF 1HHHF 1HHHF 
var 
numKoł :Shortint; 
TT :Shortint; 
begin 
C MT_Cyfry J 
TextColor(LightBLUE); 
for TT:=5 0 to 10 do 
begin 
1f” (Cyfra = 0) or (Cyfra = 5) then numkKol:= 1; 
1” (Cyfra = 1) or (Cyfra = 6) then numKol:= 1l; 


NZ © 
KL) 


1” (Cyfra = 2) then numkKol:= 22; 
1” (Cyfra = 3) then numKol:= 33; 
1” (Cyfra = 4) then numkol:= 43; 
1” (Cyfra = 7) then numkKol1:= 21; 
1” (Cyfra = 8) then numkKol:= 31; 
1” (Cyfra = 9) then numkol:= 42; 


GotoXY(X, Y+TT); 

17 ((Cyfra >-1) and (Cyfra < 5)) then 
Write(Copy(txtCyfrylCTT], numkKol, 11)) 

else 
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17” ((Cyfra >4) and (Cyfra < 10)) then 
Write(Copy(txtCyfry2[TT], numKol, 11)); 
end; 
end; 


procedure MT_ZnakRazy(X, Y: Shortint); 
( Procedura wyświetla znak mnożenia * ) 
const 
txtRazy :array[O0..7] of String = ( 
"HHHHHF 1HHHk '. 
"HHHHHF IHHHF '. 
"' 4AHHŁ AH o '. 
'  AHHHHHHHF |. 
" - 4HHHHIF E 
" 41H  dHHŁ '. 
"UHHHHF A1HHHHF' . 
"HHHHHF_ 1HHHHF") ; 
var 
TT :Shortint; 
begin 
(C MT_ZnakRazy J 
TextColor(LightBLUE); 
for TT:=5 0 to 7 do 
begin 
GotoXY(X, Y+TT); 
Write(txtRazyCTT]); 
end; 
end; 


function IntToStr(X :Longint) :String; 
( Funkcja przekształca liczbę całkowitą na ciąg cyfr ) 
var 
txtText :String; 
begin 
( IntToStr ) 
STR(X, txtText); 
IntToStr:= txtText; 
end; 


function StrTolnt(txtStr :String) :Longint; 
C Funkcja przekształca ciąg cyfr na liczbę całkowitą ) 
var 
numNumber :Longint; 

numErrCode :Integer; 
begin 

C StrTolnt ) 

VAL(txtStr, numNumber, numErrCode); 

StrTolnt:= numNumber; 
end; 


function fSpc(numSpc :Shortint) :String:; 
C Funkcja zwraca ciąg składający się ze spacji J 
var 
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TT :Shortint; 
txtS :String; 
begin 
C fSpc ) 
txtS:= '"'; 
for TT:=5 0 to numSpc-l do 
txtS:= txtS+CHR(32); 
fSpc:= txtS$S; 
end; 


var 
numLiczl, numLicz2, numwynik, TT :Shortint; 
txtLiczba, txtWynik :String; 
begin 
TextBackGround(BLACK); 
TextColor(LightGRAY); 
C1rScr; 
Writeln('Tabliczka Mnożenia (c)by Jan-Tadeusz Biernat'); 
repeat 
Randomize; 
numLiczl:= 0; 
numLiczl:= Random(10); 


numLicz2:= 0; 


numLicz2:= Random(10); 
numwynik:= 0; 
numwynik:= numLiczl*numLicz2; 


1” (numLiczl > 9) then 
begin 
txtLiczba:= ''; 
txtLiczba:= IntToStr(numLiczl); 
MT_Cyfry(5, 5, StrTolnt(Copy(txtLiczba, 1, 1))); 
MT_Cyfry(15, 5, StrTolnt(Copy(txtLiczba, 2, 1))); 
end 
else 
begin 
MT_Cyfry(15, 5, numLiczl); 
end; 


MT_ZnakRazy(32, 8); 


1” (numLicz2 > 9) then 
begin 
txtLiczba:= ''; 
txtLiczba:= IntToStr(numLicz2); 
MT_Cyfry(48, 5, StrTolnt(Copy(txtLiczba, 1, 1))): 
MT_Cyfry(59, 5, StrTolnt(Copy(txtLiczba, 2, 1)0)): 
end 
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else 
begin 

MT_Cyfry(48, 5, numLicz2); 
end; 


txtWynik:= "'; 
txtWynik:= Klawisze(25, 19, 3, 'Twoja odpowiedz'); 


17 (txtWyniko'') then 
begin 
GotoXY(47, 20); 
1” (StrTolnt(txtWynik) = numWynik) then 
Write('Bardzo dobrze!') 
else 
Write('Źle!'); 
Delay(999); 
GotoXY(47, 20); 
Write(fSpc(14)); 
end; 


(CLS ) 
for TT:= 0 to 15 do 
begin 
GotoXY(4, 4+TT); 
Write(fSpc(67)); 
end; 
until (txtWwynik=''); 
TextBackGround(BLACK); 
TextColor(LightGRAY); 
CirScr; 
Writeln('Pa pa'):; 
end. 


Ćwiczenie 5.6. Zamiana jednego ciągu znaków na inny ciąg znaków w pliku 
Napisz program, który umożliwi zamianę jednego ciągu znaków z pliku na inny ciąg 
znaków. Nazwa pliku, w którym będzie dokonywana zamiana musi być podana jako 
parametr przy wywołaniu programu. Zamiana ma być wykonana bez względu na wiel- 
kość liter. Program ma składać się z następujących modułów: — obsługi klawiatury; — 
obsługi plików (wykrywanie, usuwanie, wybieranie nazwy pliku); — zamiany ciągu 
znaków na inny ciąg znaków w pliku. Poszczególne moduty programu powinny znajdo- 
wać się w oddzielnych plikach. Łączenie poszczególnych plików nastąpi w module 
głównym programu. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w plikach CW36Z.PAS, 
CW36Z1.PAS, CW36Z2.PAS i CW36Z3.PAS. 
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Moduł obsługi klawiatury CW36Z1.PAS: 


( 

Plik: cw36z1.pas 

Program: Obsługa klawiatury 
) 


procedure KT_KursorTekst(X, Y, TS :Shortint; txtStr :String); 
C Wyświetla tekst wprowadzony z klawiatury ) 
var 
TT :Shortint; 

txtSpc :String; 
begin 

( KT_KursorTekst ) 

txtSpc:= ''; 

for TT:= 0 to TS do 

txtSpc:= txtSpc+CHR(32); 


TextBackGround(BLACK); 
GotoXY(X, Y); 
Write(txtSpc): 
TextColor(WHITE); 
GotoXY(X, Y); 
Write(txtStr); 

end; 


function KN_KlawiszNacisnij :Integer; 
( Funkcja podaje kod naciśniętego klawisza ) 
var 
numKey :Integer; 
Ch :Char; 
begin 
C KN_KlawiszNacisnij ) 
repeat until KeyPressed; 
Ch:= Readkey; 
numKkey:= Ord(Ch); 
1” (Ch = 40) then 
begin 
Ch:= ReadkKey; 
numKkey:= Ord(Ch)+300; 
end; 
KN_KlawiszNacisnij:= numKEY; 
end; 


function Klawisze(X, Y, TS :Shortint; txtStr :String) :String; 
( Funkcja obsługuje klawiaturę i kontroluje liczbę wprowadzonych znaków ) 
var 
txtTekst :String; 
numLen :Shortint; 
numKey :Integer; 
begin 
( Klawisze ) 
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TextBackGround(BLACK); 
TextColor(LightGRAY); 
GotoXY(X, Y); 
Write(txtStr+':'); 
txtTekst:= ''; 
repeat 
KT_KursorTekst(X+Length(txtStr)+1, Y, TS, txtTekst); 
numkey:= 0; 
numKey:= KN_KlawiszNacisnij; 
1” (numkey = 8) then 
begin 
numLen:= 0; 
numLen:= Length(txtTekst); 
txtTekst:= Copy(txtTekst, 1, Length(txtTekst)-1); 
end 
else 
1” (numKey = 27) then 
begin 
Klawisze:= ''; 
end 
else 
1” (numkey = 13) then 
begin 
Klawisze:= txtTekst; 
end 
else 
begin 
17 (Length(txtTekst) < TS) then 
begin 
txtTekst:= txtTekst+CHR(numkey); 
end; 
end; 
unt11 (numKey = 27) or (numkey = 13); 
TextBackGround(BLACK); 
TextColor(LightGRAY); 
end; 


Moduł obsługi plików (wykrywanie, usuwanie, wybieranie nazwy pliku) CW36Z2.PAS: 


l 

Plik: cw36z2.pas 

Program: Pliki - Wykrywanie, Usuwanie 
) 


function FileExists(txtFileName :String) :Boolean; 
C Funkcja sprawdza, czy plik o podanej nazwie znajduje się na dysku. 
Jeżeli tak, to funkcja zwróci wartość TRUE (Prawda). 
W innym przypadku funkcja zwróci wartość FALSE (Fatsz) ) 
var 
Info :SearchRec; 
begin 
( FileExists 
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FindFirst(txtFileName, Directory, Info); 

FileExists:= FALSE; 

1” (DosError = 0) then FileExists:= TRUE; 
end; 


function DeleteFile(txtFileName :String) :Boolean; 

C Funkcja usuwa plik o podanej nazwie. Gdy plik zostanie usunięty, 
funkcja zwraca wartość TRUE (Prawda). W innym przypadku funkcja zwraca 
wartość FALSE (Fałsz) ) 

var 
TF :Text; 

begin 
C DeleteFile ) 

DeleteFile:= FALSE; 

1f (FileExists(txtFileName) = TRUE) then 

begin 
Assign(TF, txtFileName); 
SetFAttr(TF, Archive); C For Windows: faArchive ) 
Erase(TF); 
DeleteFile:= TRUE; 

end; 

end; 


function ExtractFileName(txtFileName :String) :String; 
C Funkcja wybiera z nazwy pliku (nazwa pliku składa się z nazwy własnej, 
kropki, rozszerzenia) nazwę własną, np. teksty.txt -> teksty) 
var 
numPos :Shortint; 
begin 
ExtractFileName:= txtFileName; 
numPos:= 0; 
numPos:= Pos('.', txtFileName); 
if (numPos<>0) then ExtractFileName:= Copy(txtFileName, 1, numPos-1); 
end; 


Moduł zamiany ciągu znaków w pliku CW36Z3.PAS: 


l 

Plik: cw36z3.pas 

Program: Zamiana jednego ciągu znaków z pliku na inny ciąg znaków 
) 


function IntToStr(X :Longint) :Str1ing; 
( Funkcja przekształca liczbę całkowitą na ciąg cyfr ) 
var 
txtText :String; 
begin 
C IntToStr J 
STR(X, txtText); 
IntToStr:=> txtText; 
end; 
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function LITERY_Male(txtStr :String) :Str1ing; 
C Zamienia wielkie litery na małe J 


function MalyZnak(chZnak :Char) :Char; 
var 
TT :Byte; 
begin 
for TT:= 65 to 90 do 
1f (Chr(TT) = chZznak) then chZnak:= Chr(TT+32); 
MalyZnak:= chZnak; 
end; 


var 
I :Byte; 
begin 
for I:= 1 to Length(txtStr) do 
txtStr[IJ:= MalyZnak(txtStr[I]); 
LITERY_Male:= txtStr; 
end; 


function jtbZnajdzzamien(txtText, txtFind, txtReplace :String) :String; 
( Zamienia jeden ciąg znaków na inny ciąg znaków ) 
var 
numPos, numLen: Integer; 
begin 
( jtbznajdzZamien ) 
numLen:= 0; 
numLen:= Length(txtFind); 


while (Pos(LITERY_Male(txtFind), LITERY_Male(txtText)) > 0) do 
begin 
numPos:= 0; 
numPos:= Pos(LITERY_Male(txtFind), LITERY_Male(txtText)); 
Delete(txtText, numPos, numLen); 
Insert(txtReplace, txtText, numPos); 
end; 
jtbźnajdzzamien:= txtText; 
end; 


function FILE_jbTextSaveToFile(txtFileName, txtText: String): Boolean; 
C Zapisuje dane do pliku tekstowego ) 
var 
TF :Text; 
begin 
1" (FileExists(txtFileName) = TRUE) then 
begin 
Assign(TF, txtFileName): 
Append(TF); 
Writeln(TF, txtText); 
Close(TF); 
end 
else 


100 Ćwiczenia z Turbo Pascal 7.0 


begin 
Assign(TF, txtFileName); 
Rewrite(TF); 
Writeln(TF, txtText); 
Close(TF); 

end; 

FILE_jbTextSaveToFile:= TRUE; 

end; 


procedure OdczytajPlik(txtPlikZzrodlo, txtPlikCel, txtF, txtR :String); 
( Odczytuje zawartość pliku tekstowego. Dokonuje zamiany ciągu znaków 
i po dokonanej zamianie zapisuje go w nowym plik tekstowym. ) 
var 
txtCzytaj, txtzapiszText :String; 
FT :Text; 
TT :Longint; 
begin 
C OdczytajPlik ) 
1” (FileExists(txtPlikZzrodlo) = TRUE) then 
begin 
Assign(FT, txtPlikZrodlo); 
Reset (FT); 
TT:= 0; 
while not EOF(FT) do 
begin 
txtCzytaj:= ''; 
ReadLn(FT, txtCzytaj); 


txtzapiszText:= ''; 
txtzapiszText:= jtbZnajdzzamien(txtCzytaj, txtF, txtR); 
FILE_jbTextSaveToFile(txtP]likCel, txtzapiszText); 
GotoXY(4, 12); 
Write('Linia '+IntToStr(TT+1)+' zrobiona.'); 
TT:= TT+1; 

end; 

Close(FT) 

end; 
end; 


Moduł główny programu CW36Z.PAS: 
uses Crt, Dos; 


C wprowadzenie modułów z innych plików ) 
($I cw36z1.pas) 
($I cw36z2.pas) 
($I cw36z3.pas) 


var 
txtZznajdz, txtZzamien, txtNazwaPliku :Str1ing; 
okJestPlik :Boolean; 
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begin 
TextBackGround(BLACK); 
TextColor(LightGRAY); 
C1rScr; 
Writeln; 
Writeln('== Zamiana jednego ciągu znaków na inny ciąg znaków w pliku ='); 
Writeln('Copyright(c)by Jan-Tadeusz Biernat"); 
Writeln; 


1” (ParamStr(1)©> '') then 
begin 
Writeln; 
Writeln('Nazwa pliku:'+CHR(32)+ParamStr(1)); 


txtZnajdz:= ''; 
txtZnajdz:= Klawisze(4, 8, 44, 'Szukany tekst'); 
1” (txtznajdz'') then 
begin 
txtzamien:= ''; 
txtZamien:= Klawisze(8, 10, 44, 'Zamień na'); 
1” (txtzamienO'') then 
begin 
txtNazwaPliku:= ''; 
txtNazwaPliku:= ExtractFileName(ParamStr(1))+'.ok'; 
okJestP]lik:= FALSE; 
okJestPlik:= FileExists(txtNazwaPliku); 
1” (okJestPlik = TRUE) then DeleteFile(txtNazwaPliku); 
OdczytajPlik(ParamStr(1), txtNazwaPliku, txtZnajdz, txtZamien); 
end; 
end; 
end 
else 
begin 
Writeln('Jako parametr, należy podać nazwę pliku!'); 
end; 
end. 


Ćwiczenie 5.7. Zamiana liczb na słowa — funkcja słownie 
Napisz program, który umożliwi przedstawienie liczby w postaci tekstowej. Program 
umożliwia wprowadzanie samych cyfr, przecinka i znaku minus. Program ma składać 
się z następujących modułów: — obsługi klawiatury; — zamiany liczby na słowa. Po- 
szczególne moduły programu powinny znajdować się w oddzielnych plikach. Łączenie 
poszczególnych plików następuje w module głównym programu. 


Sposób wykonania 
Program znajduje się na dyskietce w katalogu TP7-CW w plikach CW37Z.PAS, 
CW37Z1.PAS i CW37Z2.PAS. 


Moduł obsługi klawiatury CW37Z1.PAS: 
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l 

Plik: cw37z1.pas 

Program: Obsługa klawiatury 
) 


procedure KT_KursorTekst(X, Y, TS :Shortint; txtStr :String); 
( Wyświetla tekst wprowadzony z klawiatury ) 
var 
TT :Shortint; 
txtSpc :String; 


begin 
C KT_KursorTekst ) 
txtSpc:= ''; 


for TT:=5 0 to TS do 
txtSpc:= txtSpc+CHR(32); 


TextBackGround(BLACK); 
GotoXY(X, Y); 
Write(txtSpc); 
TextColor(WHITE); 
GotoXY(X, Y); 
Write(txtStr); 

end; 


function KN_KlawiszNacisnij :Integer; 
( Funkcja podaje kod naciśniętego klawisza ) 


var 
numKey :Integer; 
Ch :Char; 
begin 


C KN_KlawiszNacisnij ) 
repeat until KeyPressed; 
Ch:= ReadkKey; 


numKey:= Ord(Ch); 
1f (Ch = 40) then 
begin 


Ch:= ReadkKey; 
numKey:= Ord(Ch)+300; 
end; 
KN_KlawiszNacisnij:= numKEY; 
end; 


function Klawisze(X, Y, TS :Shortint; txtStr :String) :String: 
C Funkcja obsługuje klawiaturę i kontroluje liczbę wprowadzonych cyfr. 
Funkcja umożliwia wprowadzenie tylko cyfr, znaku minus i znaku przecinka ) 
var 
txtTekst :String; 
numLen :Shortint; 
numKey :Integer; 
begin 
( Klawisze ) 
TextBackGround(BLACK); 
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TextColor(LightGRAY); 
GotoXY(X, Y); 
Write(txtStr+':'); 
txtTekst:= ''; 
repeat 
KT_KursorTekst(X+Length(txtStr)+1, Y, TS, txtTekst); 
numkey:= 0; 
numKey:= KN_KlawiszNacisnij; 
1” (numKey = 8) then 
begin 
numLen:= 0; 
numLen:= Length(txtTekst); 
txtTekst:= Copy(txtTekst, 1, Length(txtTekst)-1); 
end 
else 
1” (numkey = 27) then 
begin 
Klawisze:= ''; 
end 
else 
1” (numKkey = 13) then 
begin 
Klawisze:= txtTekst; 
end 
else 
begin 
1” (Length(txtTekst) < TS) then 
begin 
1” ((numkey > 47) and (numkey < 58)) or 
(numkey = 45) or (numkey = 44) then 
begin 
txtTekst:= txtTekst+CHR(numkey); 
end; 
end; 
end; 
unt1] (numkey = 27) or (numkey = 13); 
TextBackGround(BLACK); 
TextColor(LightGRAY); 
end; 


Moduł zamiany liczb na słowa (tj. funkcja słownie) CW37Z2.PAS: 


l 
Plik: cw37z2 


== S]ownie == 
Copyright(c)by Jan-Tadeusz Biernat 
) 


function StrTolnt(txtStr :String) :Longint; 
C Funkcja przekształca ciąg cyfr na liczbę całkowitą ) 
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var 
numNumber, numErrCode :Integer; 
begin 
( StrTolnt ) 
Val(txtStr, numNumber, numErrCode); 
StrTolnt:= numNumber; 
end; 


function IntToStr(numNumer :Longint) :String; 
( Funkcja przekształca liczbę całkowitą na ciąg cyfr ) 
var 
txtText: String; 
begin 
txtText:5 ''; 
STR(numNumer, txtText); 
IntToStr:= txtText; 
end; 


function NUM_LikwidujSpacje(txtStr :String) :String; 
( Likwiduje spacje we wprowadzonym ciągu znaków ) 
var 
TT :Integer; 
txtText :String; 
begin 
NUM_LikwidujSpacje:= ''; 
1” (txtStr>'') then 
begin 
txtText:= ''; 
for TT:=s 1 to Length(txtStr) do 
1f (txtStr[TTJQCHR(32)) then 
txtText:= txtText+txtStrLTT]; 
NUM_LikwidujSpacje:= txtText; 
end; 
end; 


function DodajzeroPrzed(txtZero :String) :String; 
C Dodaje cyfrę 0 przed pojedynczą cyfrą J 
begin 

DodajzeroPrzed:= txtZero; 


1” (Length(txtZero) = 1) then DodajZeroPrzed:= 'O0'+txtZero; 
end; 


function ZmienPrzecinekNaKropke(txtStr :String) :String: 
( Zamienia przecinek na kropkę ) 
var 
txtTekst :String; 
numPoz :Shortint; 
begin 
ZmienPrzecinekNaKropke:= txtStr; 
17 (txtStr<>'') then 
begin 
numPoz:= 0; 
numPoz:= Pos(',', txtStr); 
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1” (numPoz<>0) then 

begin 
txtlTekst:= ''; 
txtTekst:= Copy(txtStr, 1, numPoz-1)+'.'+ 

Copy(txtStr, numPoz+l, Length(txtStr)); 

ZmienPrzecinekNaKropke:= txtTekst; 

end; 

end; 
end; 


function NUM_PobierzTylkoLiczby(txtStr :String; chrPrzecinek :Char) 
:String; 
( Wybiera z ciągu znaków tylko cyfry, przecinek i znak minus ) 
var 
txtCyfry :String; 
AA :Integer; 
begin 
NUM_PobierzTylkoLiczby:= '0'; 
1” (txtStrO>'') then 
begin 
txtCyfry:= ''; 
for AA:= 0 to Length(txtStr) do 
1” (txtStr[AAJ] in ['0'..'9', chrPrzecinek]) then 
txtCyfry:= txtCyfry+txtStr[AAJ; 
NUM_PobierzTylkoLiczby:= txtCyfry; 
1f (txtStrl[1] ='-') then NUM_PobierzTylkoLiczby:= '-'+txtCyfry; 
end; 
end; 


function txtSlownieGramatyka(txtNumer :String; numPoz, numGrosz :Shortint) 
:String; 
( Zamienia trzy cyfry na tekst, np. 123 -> sto dwadzieścia trzy ) 
const 
MM: array[1..9, 1..4] of StringC20] = 


(('sto ', 'dziesiec ', 'jeden ', 'jedenascie '), 
('dwiescie ', 'dwadziescia ', 'dwa ', 'dwanascie '), 
('trzysta ', 'trzydziesci ', 'trzy ', 'trzynascie "'), 
('czterysta ', 'czterdziesci ', 'cztery ', 'czternascie '), 
('piecset ', 'piecdziesiat ', 'piec ', 'piętnascie "'), 
('szescset ', 'szescdziesiat ', 'szesc ', 'szesnascie "'), 
('siedemset ', 'siedemdziesiat ', 'siedem ', 'sjedemnascie "'), 
('osiemset ', 'osiemdziesiat ', 'osiem ', 'osiemnascie '), 


('dziewiecset "', 'dziewiecdziesiat ', 'dziewiec ', 'dziewietnascie ')); 


NN: arrayL[1..5, 1..3] of Stringl1ll] = 
(C'zloty ', 'zlote ', 'zlotych '), 
('tysiac ',  'tysiace ', 'tysiecy '), 
('milion ', "miliony ', "milionow '), 
('miliard ', 'miliardy ', 'miliardow '), 
('bilion ', 'biliony ', 'bilionow ')); 


PP: array C[1..3] of Stringl/] = ('grosz', 'grosze', 'groszy'); 
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var 
TT, JJ, numTPos: Shortint; 
txtSlow: String; 
begin 
C txtSlownieGramatyka ) 
txtSlownieGramatyka:= ''; 


1” (numPoz < 1) then numPoz:= l; 
1” (Length(txtNumer) = 1) then txtNumer:= '00'+txtNumer; 
1” (Length(txtNumer) = 2) then txtNumer:= '0'+txtNumer; 


txtSlow:= "'; 
1f (Length(txtNumer) = 3) then 
begin 
1” (StrTolnt(Copy(txtNumer, 2, 2)) in C11..19]) and 
(StrTolnt(Copy(txtNumer, 1, 1)) = 0) then 
begin 
txtSlownieGramatyka:= MMLStrTolnt(Copy(txtNumer, 2, 2))-10, 
4]+NNC[numPoz, 3]; 
1” (numGrosz >0) then 
txtSlownieGramatyka:= MMIStrTolnt(Copy(txtNumer, 2, 2))-10, 
4]+PPC3]; 
end 
else 
1” (StrTolnt(Copy(txtNumer, 2, 2)) in [11..19]) and 
(StrTolnt(Copy(txtNumer, 1, 1)) > 0) then 
begin 
txtS$low: ; 
txtSlow:= MMLStrTolnt(Copy(txtNumer, 2, 2))-10, 4]+NN[numPoz, 3]; 
1” (numGrosz >0) then 
txtSlow:= MMIStrTolnt(Copy(txtNumer, 2, 2))-10, 4]+PP[3]; 
txtSlownieGramatyka:= MMIStrTolnt(Copy(txtNumer, 1. 1)), 
1]+txtSlow; 


end 
else 
begin 
txtSlow:= ''; 
for TT:5 1 to Length(txtNumer) do 
for JJ:=5 l to 9 do 
if (Copy(txtNumer, TT, 1) = IntToStr(JJ)) then txtSlow:= 
txtS1low+MMLJJ, TT]; 
numTPos:= 0; 
numTPos:= l; 
1” (StrTolnt(Copy(txtNumer, 
1” (StrTolnt(Copy(txtNumer, 
(StrTolnt(Copy(txtNumer, 


1)) in (2..4]) then numiPos:= 2; 
1)) in [5..9]) or 
1)) in [2..9]) and 


3. 

3, 

2, 
(StrTolnt(Copy(txtNumer, 3, 1)) =1) or 
(StrTolnt(Copy(txtNumer, 1, 1)) in [£1..9]) and 
(StrTolnt(Copy(txtNumer, 2, 1)) = 0) and 
(StrTolnt(Copy(txtNumer, 3, 1)) = 1) or 
(StrTolnt(Copy(txtNumer, 2, 1)) in [1..91) and 
(StrTolnt(Copy(txtNumer, 3, 1)) = 0) or 

1, 


(StrTolnt(Copy(txtNumer, 10) 1n [1..9]) and 
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(Copy(txtNumer, 2, 2) = '00') then 
begin 
numTPos:= 0; 
numTPos:= 3; 
end; 
txtSlownieGramatyka:= txtSlow+NNC(numPoz, numTPos]; 
1f (numGrosz >0) then txtSlownieGramatyka:= txtSlow+PP[numTPos]; 
if (Copy(txtNumer, 1, 3) = '000') then txtSlownieGramatyka:= ''; 
end; 
end; 
end; 


function txtSlowniePisz(txtNumer, txtGrosz :String) :String; 
var 
txtSlo, txtSGrosz :String; 
TT :Shortint; 
begtn 
(C txtSlowniePisz ) 
txtSlowniePisz:= ''; 


txtSGrosz:= ''; 

txtSGrosz:= 'i zero groszy'; 

1” (StrTolnt(txtGrosz) >0) then 
begin 


txtSGrosz:5 ''; 
txtSGrosz:= 'i '+txtSlownieGramatyka(DodajzeroPrzed(txtGrosz), 1. 1); 
end; 


for TT:= 1 to 15-Length(txtNumer) do 


txtNumer:= '0'+txtNumer; 
txtSlo:= ''; 
txtSlo:= txtSlownieGramatyka(Copy(txtNumer, 1, 3). 5, 0)+ 


txtSlownieGramatyka(Copy(txtNumer, 4, 3), 4, 0)+ 
txtSlownieGramatyka(Copy(txtNumer, 7, 3). 3, 0)+ 
txtSlownieGramatyka(Copy(txtNumer, 10, 3), 2, 0)+ 
txtSlownieGramatyka(Copy(txtNumer, 13. 3). 1. 0); 


1” (txtSlo = '') then 
begin 

txtSlo:s "'; 

txtSlo:= 'zero zlotych'+CHR(32); 
end; 


txtSlowniePisz:= txtSlo+txtSGrosz; 
end; 


function txtSlowniePLN(txtNumer :String) :String: 
var 
numPoz: Shortint; 
txtSpacja, txtPrzecinek, txtCyfra, 
txtCyfraPrzed, txtCyfraPo: String; 
begin 
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( txtSlowniePLN ) 
txtSpacja:s ''; 
txtSpacja:= NUM_LikwidujSpacje(txtNumer):; 


txtPrzecinek:= ''; 
txtPrzecinek:= ZmienPrzecinekNaKropke(txtSpacja):; 


txtCyfra:> ''; 
txtCyfra:= NUM_PobierzTylkoLiczby(txtPrzecinek, '.'); 


numPoz:= 0; 
numPoz:= Pos('.', txtCyfra); 
1” (numPoz<>0) then 
begin 
txtCyfraPo:= ''; 
txtCyfraPo:= DodajZeroPrzed(Copy(txtCyfra, numPoz+l, 2)); 


txtCyfraPrzed: ; 
txtCyfraPrzed:= Copy(txtCyfra, 1, numPoz-1); 


txtSlowniePLN:= txtSlowniePisz(txtCyfraPrzed, txtCyfraPo); 
end 
else 

txtSlowniePLN:= txtSlowniePisz(txtCyfra, '-1'); 


end; 


Moduł główny programu CW37Z.PAS: 


uses Crt; 


($I 
($I 


var 
t 
beg 
T 
T 
C 
W 
W 
W 
W 


cw37z1.pas) 
cw37z2.pas) 


xtLiczba :String; 

1n 

extBackGround(BLACK); 

extColor(LightGRAY); 

]|rScr; 

riteln; 

riteln('== Zamiana liczb na slowa =="); 
riteln('Copyright(c)by Jan-Tadeusz Biernat'); 
riteln; 


txtLiczba:s ''; 
txtLiczba:= Klawisze(4, 5, 15, 'Podaj liczbe'); 
17 (txtLiczba<>'') then 


b 


egin 
1f (txtLiczbal1lj = '-') then 
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begin 
GotoXY(l, 7); 
Write('-'+txtSlowniePLN(Copy(txtLiczba, 2, Length(txtLiczba)-1))); 
end 
else 
begin 
GotoXY(1, 7); 
Write(txtSlowniePLN(txtLiczba)); 
end; 
end 
else 
begin 
Writeln; 
Writeln; 
Write('Pa Pa!'); 
end; 
end. 


6. Cwiczenia do samodzielnego 
wykonania 


Cwiczenie 6.1 


Napisz program pokazujący różnice między stałą a zmienną. 


Ćwiczenie 6.2 
Napisz program pokazujący różnice między funkcją a procedurą. 


Ćwiczenie 6.3 
Napisz program ilustrujący różnicę między pętlą WHILE...DO a REPEAT...UNTIL. 


Ćwiczenie 6.4 
Napisz program obliczający pole powierzchni kwadratu (wzór: a'). 


Ćwiczenie 6.5 
Napisz program obliczający pierwiastki od liczby I do 100. 


Ćwiczenie 6.6 
Napisz program, który podniesie wylosowaną liczbę do potęgi trzeciej. 


Cwiczenie 6.7 


Napisz wygaszacz ekranu, który będzie umożliwiał wyświetlenie wprowadzonego 
napisu. 


Cwiczenie 6.8 


Napisz wygaszacz ekranu, który będzie umożliwiał wyświetlenie wylosowanego napisu 
spośród wcześniej zdefiniowanych oraz będzie losował położenie tego napisu na ekranie. 


Ćwiczenie 6.9 


Napisz program, który poda liczbę dni do końca bieżącego miesiąca. Patrz Ćwiczenie 
5.1. 
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Ćwiczenie 6.10 
Napisz program wyświetlający na podstawie bieżącej daty imiona ludzi, którzy mają 
w danym dniu imieniny. 


La 


Cwiczenie 6.11 


Napisz program, który będzie umożliwiał dokonanie obliczeń przynajmniej z czterech 
działań podstawowych. Do wybrania działania należy wykorzystać menu. W czasie 
wprowadzania danych należy zablokować wprowadzanie wszystkich znaków oprócz 
cyfr, znaku minus i przecinka. 


Ćwiczenie 6.12 


Do programu Tabliczka mnożenia dodaj licznik poprawnych i negatywnych odpowiedzi. 


Ćwiczenie 6.13 


Do programu Tabliczka mnożenia dodaj możliwość losowania pochwał i nagan za 
udzieloną odpowiedź. 


Ćwiczenie 6.14 


Napisz program, który podaje datę jutrzejszą i wczorajszą, na podstawie bieżącej daty. 


Wydawnic*" 2 | FEV | 
MIKOM 


= bite” 
„Z każ Szyca 


Prowadzimy wysyłkową sprzedaż naszych książek. Wystarczy podać listę 
zamawianych tytułów (katalog wysyłamy bezpłatnie). Zamówienie zostanie 
zrealizowane w ciągu kilku dni. 


1. Książki oferujemy w naszych cenach detalicznych (ze zniżką 10% 
w stosunku do zwykłej ceny detalicznej). Przy jednorazowym zamó- 
wieniu na kwotę przekraczającą 600 złotych są stosowane ceny hur- 
towe. 


2. Odbiorca opłaca zryczałtowane koszty wysyłki. 
3. Na życzenie wysyłamy wszystkim zainteresowanym aktualny katalog. 


Aktualne ceny detaliczne naszych książek są podane na dołączonym do kata- 
logu druku zamówienia. Zamówienia można składać listownie, telefonicznie 
oraz za pośrednictwem Internetu. W Internecie można też zamówić przesyła- 
nie pocztą elektroniczna informacji o nowościach. 


Prosimy o zamówienia na adres firmy wysyłkowej 
WITKOM 


Skrytka pocztowa 145 
00-973 Warszawa 


Realizujemy zamówienia telefoniczne i internetowe 
tel./fax: (22) 823 70 77, 0-606-44-33-11 


Księgarnia internetowa: http://www.mikom.pl 
e-mail: zamowienia Q©mikom.pl 


„bee 


S, 


s Turbo Pascal 7.0 


Ćwiczenia z ... Turbo Pascal 7.0 
Jan Biernat 


Książka omawia środowisko programistyczne Borland Turbo Pascal 7.0 
(ti. uruchomienie programu Borland Turbo Pascal, utworzenie nowego 
dokumentu, wczytanie programu, uruchomienie programu, wyszukanie 
tekstu, itp.) oraz elementy Pascala (tj. komentarze, instrukcje warunkowe, 
pętle, zmienne, state, typy danych, itp.). 


Zawarte w książce ćwiczenia podzielono na: 
e ćwiczenia związane z podstawami Pascala [instrukcje warunkowe, pętle itp.); 


e ćwiczenia trudniejsze (konwersje liczby na prezentację tekstową, pliki 
tekstowe, pliki rekordowe, tworzenie inicjałów, wyselekcjonowanie liczb 
z tekstu, każdy wyraz pisany z dużej litery, zamiana jednego ciągu 


znaków na inny ciąg znaków, obliczanie wieku, usuwanie pliku itp.); 


e ćwiczenia zaawansowane (znajdują się tu gotowe programy: - obsługa 
klawiatury, tabliczka mnożenia, program przypominający o ważnych 
datach, słownik, tworzenie menu, zamiana liczb na słowa, zamiana 


ciągu znaków na inny ciąg znaków w dowolnym pliku tekstowym). 


Na dołączonej do książki dyskietce znajdują się opisane ćwiczenia. 
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